home *** CD-ROM | disk | FTP | other *** search
/ dub Media Cool Graphics / Dub Media - Cool Graphics.iso / SBdemo / WLD / BAR.WLD next >
Text File  |  1997-01-30  |  136KB  |  3,794 lines

  1. // Spacebar demo
  2. START_WLD=INTRO1A_WLD
  3. DISKID=1
  4. DISKAUDIO=$SBARDIR\GENERAL\CHADIS1.WAV
  5. SHAREDPAL=$SBARDIR\BAR\CURSORS\NOT.BMP
  6.  
  7. CURSOR 0  = 15 15 $SBARDIR\BAR\CURSORS\NOT.BMP = USESHAREDPAL
  8. CURSOR 1  = 16  1 $SBARDIR\BAR\CURSORS\HUMAN.BMP = USESHAREDPAL
  9. CURSOR 2  =  9  9 $SBARDIR\BAR\CURSORS\ZOOM.BMP = USESHAREDPAL
  10. CURSOR 5  = 16  1 $SBARDIR\BAR\CURSORS\LINK.BMP = USESHAREDPAL
  11. CURSOR 6  = 15 15 $SBARDIR\BAR\CURSORS\WAIT.BMP = USESHAREDPAL
  12. CURSOR 10 =  0  0 $SBARDIR\BAR\CURSORS\EXIT.BMP = USESHAREDPAL
  13. CURSOR 14 =  0 14 $SBARDIR\BAR\CURSORS\LEFT.BMP = USESHAREDPAL
  14. CURSOR 15 = 15  0 $SBARDIR\BAR\CURSORS\UPARROW.BMP = USESHAREDPAL
  15. CURSOR 16 = 31 15 $SBARDIR\BAR\CURSORS\RIGHT.BMP = USESHAREDPAL
  16. CURSOR 17 = 15 31 $SBARDIR\BAR\CURSORS\DOWN.BMP = USESHAREDPAL
  17.  
  18. // Wield Cursors
  19. CURSOR 30 = 12  4 $SBARDIR\BAR\WIELD\bdto3.bmp = USESHAREDPAL
  20. CURSOR 44 =  9  1 $SBARDIR\BAR\WIELD\bzta.bmp = USESHAREDPAL
  21. CURSOR 47 = 17  1 $SBARDIR\BAR\WIELD\bztd.bmp = USESHAREDPAL
  22. CURSOR 50 = 53  3 $SBARDIR\BAR\WIELD\bztg.bmp = USESHAREDPAL
  23.  
  24. VAR    TURNCOUNT AS TIMER = 1850   // VAR FOR CURRENT GAME TIME
  25. VAR INBAR = 1
  26. VAR TEMP1 = 0
  27.  
  28. VAR RPEVENT = FALSE                // jwl 11.07.96 used to trigger a rp queue update event
  29. VAR PDAZOOMED = FALSE            // GENERAL USE VAR TO TELL US WHEN PDA IS ZOOMED    
  30. VAR PDAINCREMENT = 11            // HOW MUCH TO INCREMENT THE PDA WHEN ACTIVATING
  31. VAR PDADEACTIVATE = FALSE       // DEACTIVATE THE PDA?
  32.  
  33. // DEMO: Intro storage devices.  First three storage devices
  34. //       provide background info for the game.  Each is a click
  35. //       to continue.  The third one is a link to the entry
  36. //       vestibule.
  37. SDEV INTRO1A_WLD AS CHAT {
  38.     SET BKG=$SBARDIR\GENERAL\TEXT1A.BMP;
  39.     SET ARE=[1,1,635,479]%5{
  40.         LNK=INTRO1B_WLD FADE 3;
  41.     };
  42. }
  43. SDEV INTRO1B_WLD AS CHAT {
  44.     SET BKG=$SBARDIR\GENERAL\TEXT1A.BMP;
  45.     SET BMP=$SBARDIR\GENERAL\TEXT1B.BMP [0,0];
  46.     SET ARE = [1,1,635,479]%5{
  47.         RUN LNK=INTRO1C_WLD FADE 3;
  48.     };
  49. }
  50. SDEV INTRO1C_WLD AS CHAT {
  51.     SET BKG=$SBARDIR\GENERAL\TEXT1A.BMP;
  52.     SET BMP=$SBARDIR\GENERAL\TEXT1C.BMP [0,0];
  53.     SET ARE = [1,1,635,479]%5{
  54.         RUN LNK = BAP_WLD FADE 3;
  55.     };
  56. }
  57.  
  58. // DEMO: Storage device for text2x screen.
  59. //       "There's a lot more than fits in this teeny-weeny demo..."
  60. SDEV TXT2_WLD AS CHAT {
  61.     SET BKG=$SBARDIR\GENERAL\TEXT2.BMP;
  62.     SET ARE = [0,0,80,480] %10{
  63.         RUN COMMAND = CLOSE;
  64.     }
  65. }
  66.  
  67. //     Entry Vestibule
  68. SDEV BAP_WLD{
  69.     SET BKG=$SBARDIR\BAR\PAN\BAP.BMP;
  70.     RUN EXPR=BARLOC(BAP);
  71.     RUN EXPR=BARCROWD~~VOLUME(0);
  72.     RUN EXPR=BARMUSIC~~VOLUME(0);
  73.     RUN EXPR=BARMUSIC2~~VOLUME(0);
  74.     RUN EXPR=BARMUSIC3~~VOLUME(0);
  75.     RUN EXPR=BARMUSIC4~~VOLUME(0);
  76.     RUN EXPR=BARMUSIC5~~VOLUME(0);
  77.     RUN EXPR=BARMUSIC6~~VOLUME(0);
  78.     RUN EXPR=BARMUSIC7~~VOLUME(0);
  79.  
  80.     // This is a looping background sound that stops on exit
  81.     RUN EXPR = ENTRYNOISE~~VOLUME( 5 );
  82.     RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYNOISE LOOP 0 AS MIX SOUNDOVEROK;
  83.  
  84.     // SCROLLING TEXT FOR SIGN PANEL
  85.     IF (BANA_WLD CONTAINS BATTERY)
  86.            SET TNG=$SBARDIR\GENERAL\PANIMS\BANC1.SMK[1208,170];
  87.     ENDIF
  88.  
  89.     // Secondary objects for this location
  90.     // DEMO: Removed area window
  91.     // DEMO: Removed area shower head
  92.     // DEMO: Removed area shower head 2
  93.     // DEMO: Removed area shower head 3
  94.     // DEMO: Removed area shower head 4
  95.     // DEMO: Removed area floor
  96.     // DEMO: Removed area floor1
  97.     // DEMO: Removed area floor2
  98.     // DEMO: Removed area floor3
  99.     // DEMO: Removed area floor4
  100.     // DEMO: Removed area floor5
  101.     // DEMO: Removed area floor6
  102.     // DEMO: Removed area floor7
  103.     // DEMO: Removed area floor8
  104.     // DEMO: Removed area floor9
  105.     // Advertising Closeup -- 
  106.     // bar 12-04-96: added intermediate closeup for closing of panel left open  
  107.     SET ARE=[1203,172,1498,219]^ADPANELCUP %2{
  108.         RUN LNK = BAP_WLD~~BANACLOSE_WLD~~BANA_WLD;
  109.         RUN EXPR=SIGNDOOR1(CLOSED);
  110.     }
  111.  
  112.     // READ THE PANEL UNDER THE MONITORS CLOSEUP
  113.     SET LNK=BACG_WLD[1668,252,1746,300] AS CLOSEUP;
  114.  
  115.     // Bar Area
  116.     SET LNK=BDP_WLD[1868,230,1995,320]@[787,73]#[1675,88]^BARLINK{
  117.         IF (BARLINK~~STATE == 0)
  118.             RUN MOVIE=$SBARDIR\BAR\EVENTS\EVENBAR.SMK[97,292] AS PDAMSG;
  119.             RUN SND=$SBARDIR\BAR\EVENTS\EVENBAR1.WAV AS QUEUE *2;
  120.             RUN EXPR=REMEMBER~~TIME(TURNCOUNT);
  121.             RUN EXPR=REMEMBERZ~~TIME(TURNCOUNT);
  122.             RUN EXPR=BARLINK~~STATE(1);
  123.         ENDIF
  124. // Demo: always play flythrough
  125. //         IF (TURNCOUNT < 1900)
  126.             RUN MOVIE=$SBARDIR\BAR\FLYTHRUS\FAD.SMK AS FLYTHRU;
  127. //        ENDIF
  128.         RUN EXPR=BARCROWD~~VOLUME(5);
  129.     };
  130.  
  131.     // 1ST LINK TO LOCKER 1 CLOSEUP
  132.     SET ARE = [2041,245,2047,322] %2{
  133.         RUN EXPR=LOCKERDOOR1(CLOSED);
  134.         // go through hack closeup for closing if left open bar 12-05-96
  135.         RUN LNK = BAP_WLD~~BANF1CLOSE_WLD~~BANF1_WLD;
  136.     }
  137.     // 2ND LINK TO LOCKER 1 CLOSEUP
  138.     SET ARE=[0,243,9,326] %2{
  139.         RUN EXPR=LOCKERDOOR1(CLOSED);
  140.         // go through hack closeup for closing if left open bar 12-05-96
  141.         RUN LNK = BAP_WLD~~BANF1CLOSE_WLD~~BANF1_WLD;
  142.     }
  143.  
  144.     // LINK TO LOCKER 2 CLOSEUP
  145.     SET ARE = [10,243,27,333] %2{
  146.         RUN EXPR=LOCKERDOOR2(CLOSED);
  147.         // go through hack closeup for closing if left open bar 12-05-96
  148.         RUN LNK=BAP_WLD~~BANF2CLOSE_WLD~~BANF2_WLD;
  149.     }
  150.  
  151.     // LINK TO LOCKER 3 CLOSEUP
  152.     SET LNK=BANF3_WLD[27,243,49,345] AS CLOSEUP;
  153.  
  154.     // LINK TO LOCKER 4 CLOSEUP
  155.     SET LNK=BANF4_WLD[62,241,96,362] AS CLOSEUP;
  156.  
  157.     // LINK TO LOCKER 5 CLOSEUP
  158.     SET LNK=BANF5_WLD[95,239,136,376] AS CLOSEUP;
  159.  
  160.     // LINK TO LOCKER 6 CLOSEUP
  161.     SET LNK=BANF6_WLD[138,238,189,392] AS CLOSEUP;
  162.  
  163.     // Computer Terminal
  164.     SET LNK=BANDA_WLD[1456,236,1573,390] AS CLOSEUP{
  165.         RUN EXPR=RPEC_ALIAS(TURNCOUNT);
  166.         RUN EXPR=CT_MODE(MAINMENU);
  167.     };
  168.  
  169.     // Arrival information monitors
  170.     SET LNK=BANE_WLD[1666,171,1727,239] AS CLOSEUP;
  171.  
  172.     // Departure information monitors
  173.     SET LNK=BANED_WLD[1746,195,1783,237] AS CLOSEUP;
  174.  
  175.     //Spaceport Entrance
  176.     SET ARE=SPACEPORT[744,230,970,370]%5{
  177.         RUN MOVIE=$SBARDIR\BAR\EVENTS\ANENSP.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  178.     };
  179.  
  180.     // DEMO: Removed area street exit
  181.     // DEMO: Removed interactions with arksh's bag
  182.     // DEMO: Removed Zelda's comment on Arksh
  183. }
  184.  
  185. //     Advertising Panel CloseUp
  186. SDEV BANA_WLD AS CLOSEUP{
  187.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACA\BACA.BMP;
  188.     // This is a looping background sound that stops on exit
  189.     RUN EXPR = ENTRYNOISEBANA~~VOLUME( 5 );
  190.     RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYNOISEBANA LOOP 0 AS MIX SOUNDOVEROK;
  191.     // BATTERY
  192.     SET BMP=$SBARDIR\BAR\CLOSEUP\BACA\BATB.BMP^BATTERY[195,200]%1{
  193.         SET TXT = battery COLOR 2 AS TITLE; //%%5869
  194.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  195.             RUN COMMAND = FLUSHQUEUE2;
  196.             RUN MOVIE=$SBARDIR\BAR\OBJ\BATB.SMK AS EXAMINE SND=$SBARDIR\BAR\CLOSEUP\BACA\BATBEXC1.WAV;
  197.         };
  198.         // DEMO: Removed the pickup interaction.
  199.         // DEMO: Removed ability to put the battery in your stash.
  200.         // DEMO: Removed residue printer support.
  201.     };
  202.     // SCROLLING TEXT FOR SIGN PANEL
  203.     IF ( BANA_WLD CONTAINS BATTERY)
  204.             SET TNG=$SBARDIR\BAR\CLOSEUP\BACA\BANA2.SMK[0,140];
  205.     ENDIF
  206.     SET TNG=$SBARDIR\BAR\CLOSEUP\BACA\BACA.SMK^SIGNOPEN LOOP 0 IS MODAL[145,190]%1{
  207.         SET TXT = advertising_sign_panel COLOR 2 AS TITLE; //%%5903
  208.         IF ( SIGNDOOR1 == CLOSED )
  209.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  210.                 IF ( AD1TIME == 0 )
  211.                     RUN SND=$SBARDIR\BAR\CLOSEUP\BACA\BANAEXC1.WAV AS QUEUE *2;
  212.                 ENDIF
  213.                 IF ( AD1TIME == 1 )
  214.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACA\CLOSED.TXT COLOR 2 AS CAPTION; //%%5910
  215.                 ENDIF
  216.             };
  217.             SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
  218.                 RUN SND=$SBARDIR\BAR\CLOSEUP\BACA\BANAOPC1.WAV;
  219.                 RUN EXPR=SIGNOPEN~~SPEED(1);
  220.                 RUN EXPR=SIGNOPEN~~LOOP(1);
  221.                 RUN EXPR=AD1TIME(1);
  222.                 RUN EXPR=RPAP_ALIAS(TURNCOUNT);
  223.                 RUN EXPR=SIGNDOOR1(OPEN);
  224.             };
  225.         ENDIF
  226.         IF (SIGNDOOR1 == OPEN)
  227.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  228.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACA\OPEN.TXT COLOR 2 AS CAPTION; //%%5924
  229.             };
  230.             SET BMP=$SBARDIR\GENERAL\MENUS\CLOSE.BMP{
  231.                 RUN SND=$SBARDIR\BAR\CLOSEUP\BACA\BANACLC1.WAV;
  232.                 RUN EXPR=SIGNOPEN~~SPEED(-1);
  233.                 RUN EXPR=SIGNOPEN~~LOOP(1);
  234.                 RUN EXPR=SIGNOPEN~~SPEED(1);
  235.                 RUN EXPR=SIGNDOOR1(CLOSED);
  236.             };
  237.             // DEMO: Battery is already in the panel - remove support to transfer from wield.
  238.         ENDIF
  239.         // DEMO: Removed residue printer support.
  240.     };
  241. }
  242.  
  243. // LOCKER 1 CLOSEUP
  244. SDEV BANF1_WLD AS CLOSEUP{
  245.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
  246.     // This is a looping background sound that stops on exit
  247.     RUN EXPR=ENTRYBANF1~~VOLUME(5);
  248.     RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF1 LOOP 0 AS MIX SOUNDOVEROK;
  249.     IF (LOCKERDOOR1 == OPEN)
  250.         SET ARE=EMPTY[94,0,383,258]%1{
  251.             SET TXT = locker COLOR 2 AS TITLE; //%%4950
  252.             // DEMO: Removed examine interaction
  253.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  254.                    SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANOP.TXT COLOR 2 AS CAPTION; //%%4952
  255.             };
  256.             SET BMP=$SBARDIR\GENERAL\MENUS\CLOSE.BMP{
  257.                 RUN COMMAND=UPDATE;
  258.                 IF (L1OPENED==2)
  259.                 RUN EXPR=L1STATUS~~STATE(0);
  260.                     RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFCLC1.WAV;
  261.                     RUN EXPR=L1OPENED(3);
  262.                 ENDIF
  263.                 RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFCL.WAV AS MIX;
  264.                 RUN EXPR=LOCKERDOOR1(CLOSED);
  265.             };
  266.         // DEMO: Removed the cerebomb putin interaction (if cerebomb is in the stash)
  267.         // DEMO: Removed the datacart putin interaction (if datacart is in the stash)
  268.         };
  269.         ENDIF
  270.     // DEMO: Removed cerebomb
  271.     // DEMO: Removed all interactions with the datacart
  272.     IF ( LOCKERDOOR1 == CLOSED )
  273.         SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
  274.         SET ARE=HANDLE[94,0,383,258]%1{
  275.             SET TXT = locker COLOR 2 AS TITLE; //%%5052
  276.             // DEMO: Removed the examine interaction
  277.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  278.                 IF (L1OPENED >1)
  279.                        SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5055
  280.                 ELSE
  281.                        SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANFREE.TXT COLOR 2 AS CAPTION; //%%5057
  282.                 ENDIF
  283.             };
  284.             SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
  285.                 RUN EXPR=RPL1_ALIAS(TURNCOUNT); 
  286.                 RUN EXPR=TEMP(L1OPENED);
  287.                 IF (TEMP==1)
  288.                     RUN EXPR=L1DIG1(DIAL1~~STATE);
  289.                     RUN EXPR=L1DIG2(DIAL2~~STATE);
  290.                     RUN EXPR=L1DIG3(DIAL3~~STATE);
  291.                     RUN EXPR=L1DIG4(DIAL4~~STATE);
  292.                     RUN EXPR=L1OPENED(2);
  293.                     RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFOP.WAV AS MIX;
  294.                     RUN EXPR=LOCKERDOOR1(OPEN);
  295.                 ENDIF
  296.                 IF (TEMP==0)
  297.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF.TXT COLOR 2 AS CAPTION; //%%5072
  298.                     RUN EXPR=L1OPENED(1);
  299.                 ENDIF
  300.                 IF ( TEMP > 1 )
  301.                     IF (DIAL1~~STATE== L1DIG1 AND DIAL2~~STATE==L1DIG2 AND DIAL3~~STATE==L1DIG3 AND DIAL4~~STATE==L1DIG4 )
  302.                         RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFOP.WAV AS MIX;
  303.                         RUN EXPR=LOCKERDOOR1(OPEN);
  304.                     ELSE
  305.                         SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5079
  306.                     ENDIF
  307.                 ENDIF
  308.             };
  309.         };
  310.         // LOCKER NUMBER
  311.         SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANH.BMP[318,261];
  312.         // LOCKER STATUS - AVAILABLE/IN-USE
  313.         SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]^L1STATUS+2NOANIM*1;
  314.         // COMBINATION LOCK-1ST DIGIT
  315.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^UP1[244,169]+2%1{
  316.             RUN EXPR=TEMP(DIAL1~~STATE);
  317.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  318.             IF (TEMP==9)
  319.                 RUN EXPR=DIAL1~~STATE(0);
  320.             ELSE
  321.                 RUN EXPR=DIAL1~~STATE(DIAL1~~STATE+1);
  322.             ENDIF
  323.                     RUN COMMAND=UPDATE;
  324.         };
  325.         SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^DIAL1[245,197]+10NOANIM*0;
  326.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^DN1[243,233]+2%1{
  327.                     RUN EXPR=TEMP(DIAL1~~STATE);
  328.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  329.             IF (TEMP==0)
  330.                 RUN EXPR=DIAL1~~STATE(9);
  331.             ELSE
  332.                 RUN EXPR=DIAL1~~STATE( DIAL1~~STATE - 1 );
  333.             ENDIF
  334.                     RUN COMMAND=UPDATE;
  335.         };
  336.         // 2ND DIGIT
  337.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^UP2[269,169]+2%1{
  338.                     RUN EXPR=TEMP(DIAL2~~STATE);
  339.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  340.             IF (TEMP==9)
  341.                 RUN EXPR=DIAL2~~STATE(0);
  342.             ELSE
  343.                 RUN EXPR=DIAL2~~STATE(DIAL2~~STATE+1);
  344.             ENDIF
  345.                     RUN COMMAND=UPDATE;
  346.         };
  347.         SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^DIAL2[268,197]+10NOANIM*0;
  348.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^DN2[268,233]+2%1{
  349.                     RUN EXPR=TEMP(DIAL2~~STATE);
  350.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  351.             IF (TEMP==0)
  352.                 RUN EXPR=DIAL2~~STATE(9);
  353.             ELSE
  354.                 RUN EXPR=DIAL2~~STATE( DIAL2~~STATE - 1 );
  355.             ENDIF
  356.                     RUN COMMAND=UPDATE;
  357.          };
  358.         // 3RD DIGIT
  359.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^UP3[293,169]+2%1{
  360.                     RUN EXPR=TEMP(DIAL3~~STATE);
  361.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  362.             IF (TEMP==9)
  363.                 RUN EXPR=DIAL3~~STATE(0);
  364.             ELSE
  365.                 RUN EXPR=DIAL3~~STATE( DIAL3~~STATE + 1 );
  366.             ENDIF
  367.                     RUN COMMAND=UPDATE;
  368.         };
  369.         SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^DIAL3[291,197]+10NOANIM*0;
  370.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^DN3[292,233]+2%1{
  371.                     RUN EXPR=TEMP(DIAL3~~STATE);
  372.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  373.             IF (TEMP==0)
  374.                 RUN EXPR=DIAL3~~STATE(9);
  375.             ELSE
  376.                 RUN EXPR=DIAL3~~STATE( DIAL3~~STATE - 1 );
  377.             ENDIF
  378.                     RUN COMMAND=UPDATE;
  379.         };
  380.         // 4TH DIGIT
  381.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^UP4[317,169]+2%1{
  382.                     RUN EXPR=TEMP(DIAL4~~STATE);
  383.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  384.             IF (TEMP==9)
  385.                 RUN EXPR=DIAL4~~STATE(0);
  386.             ELSE
  387.                 RUN EXPR=DIAL4~~STATE( DIAL4~~STATE + 1 );
  388.             ENDIF
  389.                     RUN COMMAND=UPDATE;
  390.         };
  391.         SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^DIAL4[314,197]+10NOANIM*0;
  392.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^DN4[316,233]+2%1{
  393.                     RUN EXPR=TEMP(DIAL4~~STATE);
  394.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  395.             IF (TEMP==0)
  396.                 RUN EXPR=DIAL4~~STATE(9);
  397.             ELSE
  398.                 RUN EXPR=DIAL4~~STATE( DIAL4~~STATE - 1 );
  399.             ENDIF
  400.                     RUN COMMAND=UPDATE;
  401.         };
  402.     ENDIF
  403.  
  404.     RUN EXPR=L1STATUSC~~STATE(L1STATUS~~STATE);
  405.     RUN EXPR=DIAL1C~~STATE(DIAL1~~STATE);
  406.     RUN EXPR=DIAL2C~~STATE(DIAL2~~STATE);
  407.     RUN EXPR=DIAL3C~~STATE(DIAL3~~STATE);
  408.     RUN EXPR=DIAL4C~~STATE(DIAL4~~STATE);
  409. }
  410.  
  411. // Hack closeup to show locker door closed upon exiting if it was left open
  412. SDEV BANF1CLOSE_WLD AS CLOSEUP{
  413.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP;
  414.  
  415.     // LOCKER NUMBER
  416.     SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANH.BMP[318,261];
  417.     // LOCKER STATUS - AVAILABLE/IN-USE
  418.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]^L1STATUSC+2NOANIM*1;
  419.     // COMBINATION LOCK-1ST DIGIT
  420.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^UP1C[244,169]+2%1;
  421.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^DIAL1C[245,197]+10NOANIM*0;
  422.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^DN1C[243,233]+2%1;
  423.     // 2ND DIGIT
  424.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^UP2C[269,169]+2%1;
  425.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^DIAL2C[268,197]+10NOANIM*0;
  426.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^DN2C[268,233]+2%1;
  427.     // 3RD DIGIT
  428.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^UP3C[293,169]+2%1;
  429.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^DIAL3C[291,197]+10NOANIM*0;
  430.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^DN3C[292,233]+2%1;
  431.     // 4TH DIGIT
  432.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^UP4C[317,169]+2%1;
  433.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^DIAL4C[314,197]+10NOANIM*0;
  434.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^DN4C[316,233]+2%1;
  435.  
  436.     // play appropriate sfx
  437.     IF (LOCKERDOOR1 == OPEN)
  438.         RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFCL.WAV AS WAITMIX;
  439.         IF (L1OPENED==2)
  440.             RUN EXPR=L1STATUS~~STATE(0);
  441.             RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFCLC1.WAV AS WAITMIX;
  442.             RUN EXPR=L1OPENED(3);
  443.         ENDIF
  444.         RUN EXPR=LOCKERDOOR1(CLOSED);
  445.     ENDIF
  446.     RUN COMMAND = CLOSE;
  447. }
  448.  
  449. // LOCKER 2 CLOSEUP - CLICK SNAP RATTLE'S LOCKER
  450. SDEV BANF2_WLD AS CLOSEUP{
  451.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
  452.     // This is a looping background sound that stops on exit
  453.     RUN EXPR=ENTRYBANF2~~VOLUME(5);
  454.     RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF2 LOOP 0 AS MIX SOUNDOVEROK;
  455.     IF ( LOCKERDOOR2 == OPEN )
  456.         SET ARE=EMPTY[94,0,383,258]%1{
  457.             SET TXT = locker COLOR 2 AS TITLE; //%%5193
  458.             // DEMO: Removed the examine interaction
  459.                 SET BMP=$SBARDIR\GENERAL\MENUS\CLOSE.BMP{
  460.                     RUN EXPR=LOCKERDOOR2(CLOSED);
  461.                 RUN COMMAND=UPDATE;
  462.                     };
  463.         // DEMO: Removed the cerebomb putin interaction (if cerebomb is in the stash)
  464.         // DEMO: Removed the datacart putin interaction (if datacart is in the stash)
  465.         };
  466.         ENDIF
  467.     // DEMO: Removed cerebomb
  468.     // DEMO: Removed ability to interact with the datacart
  469.         IF ( LOCKERDOOR2 == CLOSED )
  470.             SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
  471.         SET ARE=HANDLE[94,0,383,258]%1{
  472.             SET TXT = locker COLOR 2 AS TITLE; //%%5273
  473.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  474.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5755
  475.             };
  476.             SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
  477.                 RUN EXPR=RPL2_ALIAS(TURNCOUNT); 
  478.                 IF ( AUDITON==TRUE AND L2DIAL1~~STATE== L2DIG1 AND L2DIAL2~~STATE==L2DIG2 AND L2DIAL3~~STATE==L2DIG3 AND L2DIAL4~~STATE==L2DIG4 )
  479.                     RUN EXPR=LOCKERDOOR2(OPEN);
  480.                 ELSE
  481.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5282
  482.                 ENDIF
  483.             };
  484.         };
  485.         // LOCKER NUMBER
  486.         SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANI.BMP[318,261];
  487.         // LOCKER STATUS - AVAILABLE/IN-USE
  488.         SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]^L2STATUS+2NOANIM*0;
  489.         // COMBINATION LOCK-1ST DIGIT
  490.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L2UP1[244,169]+2%1{
  491.                     RUN EXPR=TEMP(L2DIAL1~~STATE);
  492.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  493.             IF (TEMP==9)
  494.                 RUN EXPR=L2DIAL1~~STATE(0);
  495.             ELSE
  496.                 RUN EXPR=L2DIAL1~~STATE(L2DIAL1~~STATE+1);
  497.             ENDIF
  498.                     RUN COMMAND=UPDATE;
  499.         };
  500.         SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L2DIAL1[245,197]+10NOANIM*0;
  501.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L2DN1[243,233]+2%1{
  502.                     RUN EXPR=TEMP(L2DIAL1~~STATE);
  503.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  504.             IF (TEMP==0)
  505.                 RUN EXPR=L2DIAL1~~STATE(9);
  506.             ELSE
  507.                 RUN EXPR=L2DIAL1~~STATE( L2DIAL1~~STATE - 1 );
  508.             ENDIF
  509.                     RUN COMMAND=UPDATE;
  510.         };
  511.         // 2ND DIGIT
  512.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L2UP2[269,169]+2%1{
  513.                     RUN EXPR=TEMP(L2DIAL2~~STATE);
  514.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  515.             IF (TEMP==9)
  516.                 RUN EXPR=L2DIAL2~~STATE(0);
  517.             ELSE
  518.                 RUN EXPR=L2DIAL2~~STATE(L2DIAL2~~STATE+1);
  519.             ENDIF
  520.                     RUN COMMAND=UPDATE;
  521.         };
  522.         SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L2DIAL2[268,197]+10NOANIM*0;
  523.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L2DN2[268,233]+2%1{
  524.                     RUN EXPR=TEMP(L2DIAL2~~STATE);
  525.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  526.             IF (TEMP==0)
  527.                 RUN EXPR=L2DIAL2~~STATE(9);
  528.             ELSE
  529.                 RUN EXPR=L2DIAL2~~STATE( L2DIAL2~~STATE - 1 );
  530.             ENDIF
  531.                     RUN COMMAND=UPDATE;
  532.         };
  533.         // 3RD DIGIT
  534.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L2UP3[293,169]+2%1{
  535.                     RUN EXPR=TEMP(L2DIAL3~~STATE);
  536.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  537.             IF (TEMP==9)
  538.                 RUN EXPR=L2DIAL3~~STATE(0);
  539.             ELSE
  540.                 RUN EXPR=L2DIAL3~~STATE( L2DIAL3~~STATE + 1 );
  541.             ENDIF
  542.                     RUN COMMAND=UPDATE;
  543.         };
  544.         SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L2DIAL3[291,197]+10NOANIM*0;
  545.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L2DN3[292,233]+2%1{
  546.                     RUN EXPR=TEMP(L2DIAL3~~STATE);
  547.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  548.             IF (TEMP==0)
  549.                 RUN EXPR=L2DIAL3~~STATE(9);
  550.             ELSE
  551.                 RUN EXPR=L2DIAL3~~STATE( L2DIAL3~~STATE - 1 );
  552.             ENDIF
  553.                     RUN COMMAND=UPDATE;
  554.         };
  555.         // 4TH DIGIT
  556.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L2UP4[317,169]+2%1{
  557.                     RUN EXPR=TEMP(L2DIAL4~~STATE);
  558.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  559.             IF (TEMP==9)
  560.                 RUN EXPR=L2DIAL4~~STATE(0);
  561.             ELSE
  562.                 RUN EXPR=L2DIAL4~~STATE( L2DIAL4~~STATE + 1 );
  563.             ENDIF
  564.                     RUN COMMAND=UPDATE;
  565.         };
  566.         SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L2DIAL4[314,197]+10NOANIM*0;
  567.         SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L2DN4[316,233]+2%1{
  568.                     RUN EXPR=TEMP(L2DIAL4~~STATE);
  569.             RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  570.             IF (TEMP==0)
  571.                 RUN EXPR=L2DIAL4~~STATE(9);
  572.             ELSE
  573.                 RUN EXPR=L2DIAL4~~STATE( L2DIAL4~~STATE - 1 );
  574.             ENDIF
  575.                     RUN COMMAND=UPDATE;
  576.         };
  577.         IF (TEMP >= 0) 
  578.             RUN EXPR=RPL2_ALIAS(TURNCOUNT); 
  579.         ENDIF
  580.     ENDIF
  581.     RUN EXPR=L2STATUSC~~STATE(L2STATUS~~STATE);
  582.     RUN EXPR=L2DIAL1C~~STATE(L2DIAL1~~STATE);
  583.     RUN EXPR=L2DIAL2C~~STATE(L2DIAL2~~STATE);
  584.     RUN EXPR=L2DIAL3C~~STATE(L2DIAL3~~STATE);
  585.     RUN EXPR=L2DIAL4C~~STATE(L2DIAL4~~STATE);
  586. }
  587.  
  588. // Hack closeup to show locker door closed upon exiting if it was left open
  589. SDEV BANF2CLOSE_WLD AS CLOSEUP{
  590.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP;
  591.     // LOCKER NUMBER
  592.     SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANI.BMP[318,261];
  593.     // LOCKER STATUS - AVAILABLE/IN-USE
  594.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]^L2STATUSC+2NOANIM*1;
  595.     // COMBINATION LOCK-1ST DIGIT
  596.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L2UP1C[244,169]+2%1;
  597.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L2DIAL1C[245,197]+10NOANIM*0;
  598.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L2DN1C[243,233]+2%1;
  599.     // 2ND DIGIT
  600.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L2UP2C[269,169]+2%1;
  601.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L2DIAL2C[268,197]+10NOANIM*0;
  602.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L2DN2C[268,233]+2%1;
  603.     // 3RD DIGIT
  604.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L2UP3C[293,169]+2%1;
  605.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L2DIAL3C[291,197]+10NOANIM*0;
  606.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L2DN3C[292,233]+2%1;
  607.     // 4TH DIGIT
  608.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L2UP4C[317,169]+2%1;
  609.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L2DIAL4C[314,197]+10NOANIM*0;
  610.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L2DN4C[316,233]+2%1;
  611.  
  612.     // play appropriate sfx
  613.     IF (LOCKERDOOR2 == OPEN)
  614.         RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFCL.WAV AS WAITMIX;
  615.         RUN EXPR = LOCKERDOOR2( CLOSED );
  616.     ENDIF
  617.     RUN COMMAND = CLOSE;
  618. }
  619.  
  620. // LOCKER 3 CLOSEUP    - OCCUPIED THROUGHOUT THE WHOLE GAME
  621. SDEV BANF3_WLD AS CLOSEUP{
  622.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
  623.     // This is a looping background sound that stops on exit
  624.     RUN EXPR=ENTRYBANF3~~VOLUME(5);
  625.     RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF3 LOOP 0 AS MIX SOUNDOVEROK;
  626.         SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
  627.     // LOCKER NUMBER
  628.     SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANJ.BMP[318,261];
  629.     // LOCKER STATUS - AVAILABLE/IN-USE
  630.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]+2NOANIM*0;
  631.     SET ARE=HANDLE[94,0,383,258]%1{
  632.         SET TXT = locker COLOR 2 AS TITLE; //%%5402
  633.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  634.             SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5755
  635.         };
  636.         SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
  637.             SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5407
  638.             RUN EXPR=RPL3_ALIAS(TURNCOUNT); 
  639.         };
  640.     };
  641.     // COMBINATION LOCK-1ST DIGIT
  642.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L3UP1[244,169]+2%1{
  643.             RUN EXPR=TEMP(L3DIAL1~~STATE);
  644.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  645.             IF (TEMP==9)
  646.                 RUN EXPR=L3DIAL1~~STATE(0);
  647.             ELSE
  648.                 RUN EXPR=L3DIAL1~~STATE(L3DIAL1~~STATE+1);
  649.             ENDIF
  650.             RUN COMMAND=UPDATE;
  651.     };
  652.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L3DIAL1[245,197]+10NOANIM*0;
  653.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L3DN1[243,233]+2%1{
  654.             RUN EXPR=TEMP(L3DIAL1~~STATE);
  655.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  656.         IF (TEMP==0)
  657.             RUN EXPR=L3DIAL1~~STATE(9);
  658.         ELSE
  659.             RUN EXPR=L3DIAL1~~STATE( L3DIAL1~~STATE - 1 );
  660.         ENDIF
  661.             RUN COMMAND=UPDATE;
  662.     };
  663.     // 2ND DIGIT
  664.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L3UP2[269,169]+2%1{
  665.             RUN EXPR=TEMP(L3DIAL2~~STATE);
  666.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  667.         IF (TEMP==9)
  668.             RUN EXPR=L3DIAL2~~STATE(0);
  669.         ELSE
  670.             RUN EXPR=L3DIAL2~~STATE(L3DIAL2~~STATE+1);
  671.         ENDIF
  672.             RUN COMMAND=UPDATE;
  673.     };
  674.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L3DIAL2[268,197]+10NOANIM*0;
  675.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L3DN2[268,233]+2%1{
  676.             RUN EXPR=TEMP(L3DIAL2~~STATE);
  677.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  678.         IF (TEMP==0)
  679.             RUN EXPR=L3DIAL2~~STATE(9);
  680.         ELSE
  681.             RUN EXPR=L3DIAL2~~STATE( L3DIAL2~~STATE - 1 );
  682.         ENDIF
  683.             RUN COMMAND=UPDATE;
  684.     };
  685.     // 3RD DIGIT
  686.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L3UP3[293,169]+2%1{
  687.             RUN EXPR=TEMP(L3DIAL3~~STATE);
  688.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  689.         IF (TEMP==9)
  690.             RUN EXPR=L3DIAL3~~STATE(0);
  691.         ELSE
  692.             RUN EXPR=L3DIAL3~~STATE( L3DIAL3~~STATE + 1 );
  693.         ENDIF
  694.             RUN COMMAND=UPDATE;
  695.     };
  696.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L3DIAL3[291,197]+10NOANIM*0;
  697.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L3DN3[292,233]+2%1{
  698.             RUN EXPR=TEMP(L3DIAL3~~STATE);
  699.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  700.         IF (TEMP==0)
  701.             RUN EXPR=L3DIAL3~~STATE(9);
  702.         ELSE
  703.             RUN EXPR=L3DIAL3~~STATE( L3DIAL3~~STATE - 1 );
  704.         ENDIF
  705.             RUN COMMAND=UPDATE;
  706.     };
  707.     // 4TH DIGIT
  708.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L3UP4[317,169]+2%1{
  709.             RUN EXPR=TEMP(L3DIAL4~~STATE);
  710.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  711.         IF (TEMP==9)
  712.             RUN EXPR=L3DIAL4~~STATE(0);
  713.         ELSE
  714.             RUN EXPR=L3DIAL4~~STATE( L3DIAL4~~STATE + 1 );
  715.         ENDIF
  716.             RUN COMMAND=UPDATE;
  717.     };
  718.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L3DIAL4[314,197]+10NOANIM*0;
  719.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L3DN4[316,233]+2%1{
  720.             RUN EXPR=TEMP(L3DIAL4~~STATE);
  721.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  722.         IF (TEMP==0)
  723.             RUN EXPR=L3DIAL4~~STATE(9);
  724.         ELSE
  725.             RUN EXPR=L3DIAL4~~STATE( L3DIAL4~~STATE - 1 );
  726.         ENDIF
  727.             RUN COMMAND=UPDATE;
  728.     };
  729. }
  730. // LOCKER 4 CLOSEUP    - OCCUPIED THROUGHOUT THE WHOLE GAME
  731. SDEV BANF4_WLD AS CLOSEUP{
  732.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
  733.     // This is a looping background sound that stops on exit
  734.     RUN EXPR=ENTRYBANF4~~VOLUME(5);
  735.     RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF4 LOOP 0 AS MIX SOUNDOVEROK;
  736.         SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
  737.     // LOCKER NUMBER
  738.     SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANL.BMP[318,261];
  739.     // LOCKER STATUS - AVAILABLE/IN-USE
  740.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]+2NOANIM*0;
  741.     SET ARE=HANDLE[94,0,383,258]%1{
  742.         SET TXT = locker COLOR 2 AS TITLE; //%%5519
  743.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  744.                    SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5521
  745.         };
  746.         SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
  747.             SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5524
  748.             RUN EXPR=RPL4_ALIAS(TURNCOUNT); 
  749.         };
  750.     };
  751.     // COMBINATION LOCK-1ST DIGIT
  752.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L4UP1[244,169]+2%1{
  753.             RUN EXPR=TEMP(L4DIAL1~~STATE);
  754.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  755.         IF (TEMP==9)
  756.             RUN EXPR=L4DIAL1~~STATE(0);
  757.         ELSE
  758.             RUN EXPR=L4DIAL1~~STATE(L4DIAL1~~STATE+1);
  759.         ENDIF
  760.             RUN COMMAND=UPDATE;
  761.     };
  762.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L4DIAL1[245,197]+10NOANIM*0;
  763.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L4DN1[243,233]+2%1{
  764.             RUN EXPR=TEMP(L4DIAL1~~STATE);
  765.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  766.         IF (TEMP==0)
  767.             RUN EXPR=L4DIAL1~~STATE(9);
  768.         ELSE
  769.             RUN EXPR=L4DIAL1~~STATE( L4DIAL1~~STATE - 1 );
  770.         ENDIF
  771.             RUN COMMAND=UPDATE;
  772.     };
  773.     // 2ND DIGIT
  774.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L4UP2[269,169]+2%1{
  775.             RUN EXPR=TEMP(L4DIAL2~~STATE);
  776.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  777.         IF (TEMP==9)
  778.             RUN EXPR=L4DIAL2~~STATE(0);
  779.         ELSE
  780.             RUN EXPR=L4DIAL2~~STATE(L4DIAL2~~STATE+1);
  781.         ENDIF
  782.             RUN COMMAND=UPDATE;
  783.     };
  784.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L4DIAL2[268,197]+10NOANIM*0;
  785.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L4DN2[268,233]+2%1{
  786.             RUN EXPR=TEMP(L4DIAL2~~STATE);
  787.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  788.         IF (TEMP==0)
  789.             RUN EXPR=L4DIAL2~~STATE(9);
  790.         ELSE
  791.             RUN EXPR=L4DIAL2~~STATE( L4DIAL2~~STATE - 1 );
  792.         ENDIF
  793.             RUN COMMAND=UPDATE;
  794.     };
  795.     // 3RD DIGIT
  796.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L4UP3[293,169]+2%1{
  797.             RUN EXPR=TEMP(L4DIAL3~~STATE);
  798.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  799.         IF (TEMP==9)
  800.             RUN EXPR=L4DIAL3~~STATE(0);
  801.         ELSE
  802.             RUN EXPR=L4DIAL3~~STATE( L4DIAL3~~STATE + 1 );
  803.         ENDIF
  804.             RUN COMMAND=UPDATE;
  805.     };
  806.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L4DIAL3[291,197]+10NOANIM*0;
  807.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L4DN3[292,233]+2%1{
  808.             RUN EXPR=TEMP(L4DIAL3~~STATE);
  809.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  810.         IF (TEMP==0)
  811.             RUN EXPR=L4DIAL3~~STATE(9);
  812.         ELSE
  813.             RUN EXPR=L4DIAL3~~STATE( L4DIAL3~~STATE - 1 );
  814.         ENDIF
  815.             RUN COMMAND=UPDATE;
  816.     };
  817.     // 4TH DIGIT
  818.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L4UP4[317,169]+2%1{
  819.             RUN EXPR=TEMP(L4DIAL4~~STATE);
  820.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  821.         IF (TEMP==9)
  822.             RUN EXPR=L4DIAL4~~STATE(0);
  823.         ELSE
  824.             RUN EXPR=L4DIAL4~~STATE( L4DIAL4~~STATE + 1 );
  825.         ENDIF
  826.             RUN COMMAND=UPDATE;
  827.     };
  828.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L4DIAL4[314,197]+10NOANIM*0;
  829.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L4DN4[316,233]+2%1{
  830.             RUN EXPR=TEMP(L4DIAL4~~STATE);
  831.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  832.         IF (TEMP==0)
  833.             RUN EXPR=L4DIAL4~~STATE(9);
  834.         ELSE
  835.             RUN EXPR=L4DIAL4~~STATE( L4DIAL4~~STATE - 1 );
  836.         ENDIF
  837.             RUN COMMAND=UPDATE;
  838.     };
  839. }
  840. // LOCKER 5 CLOSEUP    - OCCUPIED THROUGHOUT THE WHOLE GAME
  841. SDEV BANF5_WLD AS CLOSEUP{
  842.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
  843.     // This is a looping background sound that stops on exit
  844.     RUN EXPR=ENTRYBANF5~~VOLUME(5);
  845.     RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF5 LOOP 0 AS MIX SOUNDOVEROK;
  846.         SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
  847.     // LOCKER NUMBER
  848.     SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANM.BMP[318,261];
  849.     // LOCKER STATUS - AVAILABLE/IN-USE
  850.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]+2NOANIM*0;
  851.     SET ARE=HANDLE[94,0,383,258]%1{
  852.         SET TXT = locker COLOR 2 AS TITLE; //%%5636
  853.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  854.                    SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5638
  855.         };
  856.         SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
  857.             SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5641
  858.             RUN EXPR=RPL5_ALIAS(TURNCOUNT); 
  859.         };
  860.     };
  861.     // COMBINATION LOCK-1ST DIGIT
  862.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L5UP1[244,169]+2%1{
  863.             RUN EXPR=TEMP(L5DIAL1~~STATE);
  864.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  865.         IF (TEMP==9)
  866.             RUN EXPR=L5DIAL1~~STATE(0);
  867.         ELSE
  868.             RUN EXPR=L5DIAL1~~STATE(L5DIAL1~~STATE+1);
  869.         ENDIF
  870.             RUN COMMAND=UPDATE;
  871.     };
  872.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L5DIAL1[245,197]+10NOANIM*0;
  873.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L5DN1[243,233]+2%1{
  874.             RUN EXPR=TEMP(L5DIAL1~~STATE);
  875.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  876.         IF (TEMP==0)
  877.             RUN EXPR=L5DIAL1~~STATE(9);
  878.         ELSE
  879.             RUN EXPR=L5DIAL1~~STATE( L5DIAL1~~STATE - 1 );
  880.         ENDIF
  881.             RUN COMMAND=UPDATE;
  882.     };
  883.     // 2ND DIGIT
  884.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L5UP2[269,169]+2%1{
  885.             RUN EXPR=TEMP(L5DIAL2~~STATE);
  886.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  887.         IF (TEMP==9)
  888.             RUN EXPR=L5DIAL2~~STATE(0);
  889.         ELSE
  890.             RUN EXPR=L5DIAL2~~STATE(L5DIAL2~~STATE+1);
  891.         ENDIF
  892.             RUN COMMAND=UPDATE;
  893.     };
  894.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L5DIAL2[268,197]+10NOANIM*0;
  895.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L5DN2[268,233]+2%1{
  896.             RUN EXPR=TEMP(L5DIAL2~~STATE);
  897.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  898.         IF (TEMP==0)
  899.             RUN EXPR=L5DIAL2~~STATE(9);
  900.         ELSE
  901.             RUN EXPR=L5DIAL2~~STATE( L5DIAL2~~STATE - 1 );
  902.         ENDIF
  903.             RUN COMMAND=UPDATE;
  904.     };
  905.     // 3RD DIGIT
  906.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L5UP3[293,169]+2%1{
  907.         RUN EXPR=TEMP(L5DIAL3~~STATE);
  908.            RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  909.         IF (TEMP==9)
  910.             RUN EXPR=L5DIAL3~~STATE(0);
  911.         ELSE
  912.             RUN EXPR=L5DIAL3~~STATE( L5DIAL3~~STATE + 1 );
  913.         ENDIF
  914.         RUN COMMAND=UPDATE;
  915.     };
  916.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L5DIAL3[291,197]+10NOANIM*0;
  917.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L5DN3[292,233]+2%1{
  918.             RUN EXPR=TEMP(L5DIAL3~~STATE);
  919.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  920.         IF (TEMP==0)
  921.             RUN EXPR=L5DIAL3~~STATE(9);
  922.         ELSE
  923.             RUN EXPR=L5DIAL3~~STATE( L5DIAL3~~STATE - 1 );
  924.         ENDIF
  925.             RUN COMMAND=UPDATE;
  926.     };
  927.     // 4TH DIGIT
  928.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L5UP4[317,169]+2%1{
  929.             RUN EXPR=TEMP(L5DIAL4~~STATE);
  930.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  931.         IF (TEMP==9)
  932.             RUN EXPR=L5DIAL4~~STATE(0);
  933.         ELSE
  934.             RUN EXPR=L5DIAL4~~STATE( L5DIAL4~~STATE + 1 );
  935.         ENDIF
  936.             RUN COMMAND=UPDATE;
  937.     };
  938.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L5DIAL4[314,197]+10NOANIM*0;
  939.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L5DN4[316,233]+2%1{
  940.             RUN EXPR=TEMP(L5DIAL4~~STATE);
  941.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  942.         IF (TEMP==0)
  943.             RUN EXPR=L5DIAL4~~STATE(9);
  944.         ELSE
  945.             RUN EXPR=L5DIAL4~~STATE( L5DIAL4~~STATE - 1 );
  946.         ENDIF
  947.             RUN COMMAND=UPDATE;
  948.     };
  949. }
  950. // LOCKER 6 CLOSEUP    - OCCUPIED THROUGHOUT THE WHOLE GAME
  951. SDEV BANF6_WLD AS CLOSEUP{
  952.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
  953.     // This is a looping background sound that stops on exit
  954.     RUN EXPR=ENTRYBANF6~~VOLUME(5);
  955.     RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF6 LOOP 0 AS MIX SOUNDOVEROK;
  956.     SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
  957.     // LOCKER NUMBER
  958.     SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANN.BMP[318,261];
  959.     // LOCKER STATUS - AVAILABLE/IN-USE
  960.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]+2NOANIM*0;
  961.     SET ARE=HANDLE[94,0,383,258]%1{
  962.         SET TXT = locker COLOR 2 AS TITLE; //%%5753
  963.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  964.             SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5755
  965.         };
  966.         SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
  967.             SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5758
  968.             RUN EXPR=RPL6_ALIAS(TURNCOUNT); 
  969.         };
  970.     };
  971.     // COMBINATION LOCK-1ST DIGIT
  972.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L6UP1[244,169]+2%1{
  973.             RUN EXPR=TEMP(L6DIAL1~~STATE);
  974.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  975.         IF (TEMP==9)
  976.             RUN EXPR=L6DIAL1~~STATE(0);
  977.         ELSE
  978.             RUN EXPR=L6DIAL1~~STATE(L6DIAL1~~STATE+1);
  979.         ENDIF
  980.             RUN COMMAND=UPDATE;
  981.     };
  982.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L6DIAL1[245,197]+10NOANIM*0;
  983.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L6DN1[243,233]+2%1{
  984.             RUN EXPR=TEMP(L6DIAL1~~STATE);
  985.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  986.         IF (TEMP==0)
  987.             RUN EXPR=L6DIAL1~~STATE(9);
  988.         ELSE
  989.             RUN EXPR=L6DIAL1~~STATE( L6DIAL1~~STATE - 1 );
  990.         ENDIF
  991.             RUN COMMAND=UPDATE;
  992.     };
  993.     // 2ND DIGIT
  994.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L6UP2[269,169]+2%1{
  995.             RUN EXPR=TEMP(L6DIAL2~~STATE);
  996.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  997.         IF (TEMP==9)
  998.             RUN EXPR=L6DIAL2~~STATE(0);
  999.         ELSE
  1000.             RUN EXPR=L6DIAL2~~STATE(L6DIAL2~~STATE+1);
  1001.         ENDIF
  1002.             RUN COMMAND=UPDATE;
  1003.     };
  1004.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L6DIAL2[268,197]+10NOANIM*0;
  1005.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L6DN2[268,233]+2%1{
  1006.             RUN EXPR=TEMP(L6DIAL2~~STATE);
  1007.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  1008.         IF (TEMP==0)
  1009.             RUN EXPR=L6DIAL2~~STATE(9);
  1010.         ELSE
  1011.             RUN EXPR=L6DIAL2~~STATE( L6DIAL2~~STATE - 1 );
  1012.         ENDIF
  1013.             RUN COMMAND=UPDATE;
  1014.     };
  1015.     // 3RD DIGIT
  1016.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L6UP3[293,169]+2%1{
  1017.             RUN EXPR=TEMP(L6DIAL3~~STATE);
  1018.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  1019.         IF (TEMP==9)
  1020.             RUN EXPR=L6DIAL3~~STATE(0);
  1021.         ELSE
  1022.             RUN EXPR=L6DIAL3~~STATE( L6DIAL3~~STATE + 1 );
  1023.         ENDIF
  1024.             RUN COMMAND=UPDATE;
  1025.     };
  1026.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L6DIAL3[291,197]+10NOANIM*0;
  1027.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L6DN3[292,233]+2%1{
  1028.             RUN EXPR=TEMP(L6DIAL3~~STATE);
  1029.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  1030.         IF (TEMP==0)
  1031.             RUN EXPR=L6DIAL3~~STATE(9);
  1032.         ELSE
  1033.             RUN EXPR=L6DIAL3~~STATE( L6DIAL3~~STATE - 1 );
  1034.         ENDIF
  1035.             RUN COMMAND=UPDATE;
  1036.     };
  1037.     // 4TH DIGIT
  1038.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L6UP4[317,169]+2%1{
  1039.             RUN EXPR=TEMP(L6DIAL4~~STATE);
  1040.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  1041.         IF (TEMP==9)
  1042.             RUN EXPR=L6DIAL4~~STATE(0);
  1043.         ELSE
  1044.             RUN EXPR=L6DIAL4~~STATE( L6DIAL4~~STATE + 1 );
  1045.         ENDIF
  1046.             RUN COMMAND=UPDATE;
  1047.     };
  1048.     SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L6DIAL4[314,197]+10NOANIM*0;
  1049.     SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L6DN4[316,233]+2%1{
  1050.             RUN EXPR=TEMP(L6DIAL4~~STATE);
  1051.                RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
  1052.         IF (TEMP==0)
  1053.             RUN EXPR=L6DIAL4~~STATE(9);
  1054.         ELSE
  1055.             RUN EXPR=L6DIAL4~~STATE( L6DIAL4~~STATE - 1 );
  1056.         ENDIF
  1057.             RUN COMMAND=UPDATE;
  1058.     };
  1059. }
  1060.  
  1061. // Hack to close Advertising Panel after leaving CloseUp 
  1062. SDEV BANACLOSE_WLD AS CLOSEUP{
  1063.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACA\BACA.BMP;
  1064.     // SCROLLING TEXT FOR SIGN PANEL -- can't make it match open closeup, so removed it - bar 12-18-96
  1065.     SET TNG=$SBARDIR\BAR\CLOSEUP\BACA\BACA.SMK^SIGNOPEN3 LOOP 0 IS MODAL[145,190]%1;
  1066.     RUN EXPR=SIGNOPEN3~~CURR_FRAME(1);
  1067.     IF (SIGNDOOR1 == OPEN)
  1068.         RUN SND=$SBARDIR\BAR\CLOSEUP\BACA\BANACLC1.WAV AS WAITMIX;
  1069.     ENDIF
  1070.     RUN COMMAND = CLOSE;
  1071. }
  1072.  
  1073. //  COMPUTER TERMINAL-FULL SCREEN CLOSEUP                  
  1074. SDEV BANDA_WLD AS FULLSCREEN2 {
  1075.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACD\BACD.BMP;
  1076.      // This is a looping background sound that stops on exit
  1077.     RUN EXPR = ENTRYBANDA~~VOLUME( 5 );
  1078.     RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANDA LOOP 0 AS MIX SOUNDOVEROK;
  1079.  
  1080.     // CURSOR FIX
  1081.     SET ARE=NOTHING[0,0,480,360]; 
  1082.  
  1083.     // DEMO: Computer terminal begins the game working - removed code to make the terminal broken
  1084.         IF (CT_MODE == MAINMENU)
  1085.             SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND01.BMP[66,36,571,410];
  1086.             SET ARE=NOTHING[66,36,571,410]; 
  1087.  
  1088.             SET ARE=RACES[146,249,476,278]%1{
  1089.                 RUN EXPR=CT_MODE(RACEMENU);
  1090.             };
  1091.             SET ARE=PLANETS[146,288,476,317]%1{
  1092.                 RUN EXPR=CT_MODE(PLANETMENU);
  1093.             };
  1094.             SET ARE=MOVIES[146,327,476,356]%1{
  1095.                 RUN EXPR=CT_MODE(MOVIEMENU);
  1096.             };
  1097.              SET ARE=ABOUT[146,365,476,395]%1{
  1098.                 RUN EXPR=CT_MODE(ABOUTMENU);
  1099.             };
  1100.  
  1101.             SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND00.BMP[10,445]+2 %1{
  1102.                 RUN COMMAND=CLOSE;
  1103.             };
  1104.         ENDIF
  1105.         IF (CT_MODE == RACEMENU)
  1106.             SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND02.BMP[67,45,571,418];
  1107.             SET ARE=NOTHING[67,45,571,418];
  1108.             SET ARE=AKROMAKI[94,81,234,103]%1 {
  1109.                 RUN EXPR=CT_PAGE(1);
  1110.                 RUN EXPR=CT_MODE(SUBMENU);
  1111.                 RUN EXPR=CT_SUB_MODE(AKRO);
  1112.             };
  1113.             SET ARE=AUDITON[94,112,234,134] %1 {
  1114.                 RUN EXPR=CT_PAGE(1);
  1115.                 RUN EXPR=CT_MODE(SUBMENU);
  1116.                 RUN EXPR=CT_SUB_MODE(AUD);
  1117.             };
  1118.             SET ARE=BLOB[94,143,234,165]%1 {
  1119.                 RUN EXPR=CT_PAGE(1);
  1120.                 RUN EXPR=CT_MODE(SUBMENU);
  1121.                 RUN EXPR=CT_SUB_MODE(BLOB);
  1122.             };
  1123.             SET ARE=FRUF[94,174,234,196]%1 {
  1124.                 RUN EXPR=CT_PAGE(1);
  1125.                 RUN EXPR=CT_MODE(SUBMENU);
  1126.                 RUN EXPR=CT_SUB_MODE(FRUF);
  1127.             };
  1128.             SET ARE=HUMAN[94,205,234,227]%1 {
  1129.                 RUN EXPR=CT_PAGE(1);
  1130.                 RUN EXPR=CT_MODE(SUBMENU);
  1131.                 RUN EXPR=CT_SUB_MODE(HUM);
  1132.             };
  1133.             SET ARE=KURPUPU[94,236,234,258]%1 {
  1134.                 RUN EXPR = KERPUPUINFO( TRUE );
  1135.                 RUN EXPR=CT_PAGE(1);
  1136.                 RUN EXPR=CT_MODE(SUBMENU);
  1137.                 RUN EXPR=CT_SUB_MODE(KUR);
  1138.             };
  1139.             SET ARE=MARM[244,81,383,103] %1 {
  1140.                 RUN EXPR=CT_PAGE(1);
  1141.                 RUN EXPR=CT_MODE(SUBMENU);
  1142.                 RUN EXPR=CT_SUB_MODE(MARM);
  1143.             };
  1144.             SET ARE=MOLAS[244,112,383,134]%1 {
  1145.                 RUN EXPR=CT_PAGE(1);
  1146.                 RUN EXPR=CT_MODE(SUBMENU);
  1147.                 RUN EXPR=CT_SUB_MODE(MOLAS);
  1148.             };
  1149.             SET ARE=MYTOS[244,143,383,165]%1 {
  1150.                 RUN EXPR=CT_PAGE(1);
  1151.                 RUN EXPR=CT_MODE(SUBMENU);
  1152.                 RUN EXPR=CT_SUB_MODE(MYTOS);
  1153.             };
  1154.             SET ARE=NAPTH[244,174,383,196]%1 {
  1155.                 RUN EXPR=CT_PAGE(1);
  1156.                 RUN EXPR=CT_MODE(SUBMENU);
  1157.                 RUN EXPR=CT_SUB_MODE(NAPTH);
  1158.             };
  1159.             SET ARE=NEBLITZ[244,205,383,227] %1 {
  1160.                 RUN EXPR=CT_PAGE(1);
  1161.                 RUN EXPR=CT_MODE(SUBMENU);
  1162.                 RUN EXPR=CT_SUB_MODE(NEB);
  1163.             };
  1164.             SET ARE=OYLEE[244,236,383,258]%1 {
  1165.                 RUN EXPR=CT_PAGE(1);
  1166.                 RUN EXPR=CT_SUB_MODE(OYLEE);
  1167.                 RUN EXPR=CT_MODE(SUBMENU);
  1168.             };
  1169.             SET ARE=SALIV[244,267,383,289] %1 {
  1170.                 RUN EXPR=CT_PAGE(1);
  1171.                 RUN EXPR=CT_MODE(SUBMENU);
  1172.                 RUN EXPR=CT_SUB_MODE(SAL);
  1173.             };
  1174.             SET ARE=SRAFFA[394,81,533,103] %1 {
  1175.                 RUN EXPR=CT_PAGE(1);
  1176.                 RUN EXPR=CT_MODE(SUBMENU);
  1177.                 RUN EXPR=CT_SUB_MODE(SRAF);
  1178.             };
  1179.             SET ARE=TRISECK[394,112,533,134] %1 {
  1180.                 RUN EXPR=CT_PAGE(1);
  1181.                 RUN EXPR=CT_MODE(SUBMENU);
  1182.                 RUN EXPR=CT_SUB_MODE(TRI);
  1183.             };
  1184.             SET ARE=VEDJ[404,143,534,165] %1 {
  1185.                 RUN EXPR=CT_PAGE(1);
  1186.                 RUN EXPR=CT_MODE(SUBMENU);
  1187.                 RUN EXPR=CT_SUB_MODE(VEDJ);
  1188.             };
  1189.             SET ARE=VILDROID[404,174,534,196] %1 {
  1190.                 RUN EXPR=CT_PAGE(1);
  1191.                 RUN EXPR=CT_MODE(SUBMENU);
  1192.                 RUN EXPR=CT_SUB_MODE(VILD);
  1193.             };
  1194.             SET ARE=WISP[394,205,533,227]%1 {
  1195.                 RUN EXPR=CT_PAGE(1);
  1196.                 RUN EXPR=CT_MODE(SUBMENU);
  1197.                 RUN EXPR=CT_SUB_MODE(WISP);
  1198.             };
  1199.             SET ARE=ZZAZZL[394,236,533,258] %1 {
  1200.                 RUN EXPR=CT_PAGE(1);
  1201.                 RUN EXPR=CT_MODE(SUBMENU);
  1202.                 RUN EXPR=CT_SUB_MODE(ZZAZZ);
  1203.             };
  1204.             SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
  1205.                 RUN EXPR=CT_MODE(MAINMENU);
  1206.             };
  1207.         ENDIF
  1208.  
  1209.         IF (CT_MODE == SUBMENU)
  1210.             IF (CT_SUB_MODE == AUD)
  1211.                 RUN EXPR=CT_LASTPAGE(6)
  1212.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND08.BMP[50,95,249,319];
  1213.                 IF (CT_PAGE == 1)
  1214.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6121
  1215.                 ENDIF
  1216.                 IF (CT_PAGE == 2)
  1217.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6124
  1218.                 ENDIF
  1219.                 IF (CT_PAGE == 3)
  1220.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6127
  1221.                 ENDIF
  1222.                 IF (CT_PAGE == 4)
  1223.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6130
  1224.                 ENDIF
  1225.                 IF (CT_PAGE == 5)
  1226.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6133
  1227.                 ENDIF
  1228.                 IF (CT_PAGE == 6)
  1229.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6136
  1230.                 ENDIF
  1231.                 SET VAR=AUD_LAST[215,380,250,395];
  1232.                 SET VAR=AUD_TIMES[470,380,520,395];
  1233.             ENDIF
  1234.             IF (CT_SUB_MODE == SAL)
  1235.                 RUN EXPR=CT_LASTPAGE(5)
  1236.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND09.BMP[50,95,249,319];
  1237.                 IF (CT_PAGE == 1)
  1238.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND09A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6145
  1239.                 ENDIF
  1240.                 IF (CT_PAGE == 2)
  1241.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND09B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6148
  1242.                 ENDIF
  1243.                 IF (CT_PAGE == 3)
  1244.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND09C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6151
  1245.                 ENDIF
  1246.                 IF (CT_PAGE == 4)
  1247.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND09D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6154
  1248.                 ENDIF
  1249.                 IF (CT_PAGE == 5)
  1250.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND09E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6157
  1251.                 ENDIF
  1252.                 SET VAR=SAL_LAST[215,380,250,395];
  1253.                 SET VAR=SAL_TIMES[470,380,520,395];
  1254.             ENDIF
  1255.             IF (CT_SUB_MODE == NEB)
  1256.                 RUN EXPR=CT_LASTPAGE(9)
  1257.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND10.BMP[50,95,249,319];
  1258.                 IF (CT_PAGE == 1)
  1259.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6166
  1260.                 ENDIF
  1261.                 IF (CT_PAGE == 2)
  1262.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6169
  1263.                 ENDIF
  1264.                 IF (CT_PAGE == 3)
  1265.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6172
  1266.                 ENDIF
  1267.                 IF (CT_PAGE == 4)
  1268.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6175
  1269.                 ENDIF
  1270.                 IF (CT_PAGE == 5)
  1271.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6178
  1272.                 ENDIF
  1273.                 IF (CT_PAGE == 6)
  1274.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6181
  1275.                 ENDIF
  1276.                 IF (CT_PAGE == 7)
  1277.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6184
  1278.                 ENDIF
  1279.                 IF (CT_PAGE == 8)
  1280.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10H.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6187
  1281.                 ENDIF
  1282.                 IF (CT_PAGE == 9)
  1283.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10I.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6190
  1284.                 ENDIF
  1285.                 SET VAR=NEB_LAST[215,380,250,395];
  1286.                 SET VAR=NEB_TIMES[470,380,520,395];
  1287.             ENDIF
  1288.             IF (CT_SUB_MODE == SRAF)
  1289.                 RUN EXPR=CT_LASTPAGE(9)
  1290.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND11.BMP[50,95,249,319];
  1291.                 IF (CT_PAGE == 1)
  1292.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6199
  1293.                 ENDIF
  1294.                 IF (CT_PAGE == 2)
  1295.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6202
  1296.                 ENDIF
  1297.                 IF (CT_PAGE == 3)
  1298.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6205
  1299.                 ENDIF
  1300.                 IF (CT_PAGE == 4)
  1301.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6208
  1302.                 ENDIF
  1303.                 IF (CT_PAGE == 5)
  1304.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6211
  1305.                 ENDIF
  1306.                 IF (CT_PAGE == 6)
  1307.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6214
  1308.                 ENDIF
  1309.                 IF (CT_PAGE == 7)
  1310.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6217
  1311.                 ENDIF
  1312.                 IF (CT_PAGE == 8)
  1313.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11H.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6220
  1314.                 ENDIF
  1315.                 IF (CT_PAGE == 9)
  1316.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11I.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6223
  1317.                 ENDIF
  1318.                 SET VAR=SRAF_LAST[215,380,250,395];
  1319.                 SET VAR=SRAF_TIMES[470,380,520,395];
  1320.             ENDIF
  1321.             IF (CT_SUB_MODE == TRI)
  1322.                 RUN EXPR=CT_LASTPAGE(13)
  1323.                 IF (CT_PAGE == 1)
  1324.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
  1325.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6232
  1326.                 ENDIF
  1327.                 IF (CT_PAGE == 2)
  1328.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
  1329.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6236
  1330.                 ENDIF
  1331.                 IF (CT_PAGE == 3)
  1332.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND13.BMP[50,95,249,319];
  1333.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6240
  1334.                 ENDIF
  1335.                 IF (CT_PAGE == 4)
  1336.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
  1337.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6244
  1338.                 ENDIF
  1339.                 IF (CT_PAGE == 5)
  1340.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND12.BMP[50,95,249,319];
  1341.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6248
  1342.                 ENDIF
  1343.                 IF (CT_PAGE == 6)
  1344.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
  1345.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6252
  1346.                 ENDIF
  1347.                 IF (CT_PAGE == 7)
  1348.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND12.BMP[50,95,249,319];
  1349.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6256
  1350.                 ENDIF
  1351.                 IF (CT_PAGE == 8)
  1352.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND13.BMP[50,95,249,319];
  1353.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12H.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6260
  1354.                 ENDIF
  1355.                 IF (CT_PAGE == 9)
  1356.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND12.BMP[50,95,249,319];
  1357.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12I.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6264
  1358.                 ENDIF
  1359.                 IF (CT_PAGE == 10)
  1360.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
  1361.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12J.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6268
  1362.                 ENDIF
  1363.                 IF (CT_PAGE == 11)
  1364.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
  1365.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12K.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6272
  1366.                 ENDIF
  1367.                 IF (CT_PAGE == 12)
  1368.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
  1369.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12L.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6276
  1370.                 ENDIF
  1371.                 IF (CT_PAGE == 13)
  1372.                     SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
  1373.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12M.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6280
  1374.                 ENDIF
  1375.                 SET VAR=TRI_LAST[215,380,250,395];
  1376.                 SET VAR=TRI_TIMES[470,380,520,395];
  1377.             ENDIF
  1378.             IF (CT_SUB_MODE == VEDJ)
  1379.                 RUN EXPR=CT_LASTPAGE(5)
  1380.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND15.BMP[50,95,249,319];
  1381.                 IF (CT_PAGE == 1)
  1382.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND15A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6289
  1383.                 ENDIF
  1384.                 IF (CT_PAGE == 2)
  1385.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND15B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6292
  1386.                 ENDIF
  1387.                 IF (CT_PAGE == 3)
  1388.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND15C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6295
  1389.                 ENDIF
  1390.                 IF (CT_PAGE == 4)
  1391.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND15D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6298
  1392.                 ENDIF
  1393.                 IF (CT_PAGE == 5)
  1394.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND15E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6301
  1395.                 ENDIF
  1396.                 SET VAR=VEDJ_LAST[215,380,250,395];
  1397.                 SET VAR=VEDJ_TIMES[470,380,520,395];
  1398.             ENDIF
  1399.             IF (CT_SUB_MODE == VILD)
  1400.                 RUN EXPR=CT_LASTPAGE(8)
  1401.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND16.BMP[50,95,249,319];
  1402.                 IF (CT_PAGE == 1)
  1403.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6310
  1404.                 ENDIF
  1405.                 IF (CT_PAGE == 2)
  1406.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6313
  1407.                 ENDIF
  1408.                 IF (CT_PAGE == 3)
  1409.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6316
  1410.                 ENDIF
  1411.                 IF (CT_PAGE == 4)
  1412.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6319
  1413.                 ENDIF
  1414.                 IF (CT_PAGE == 5)
  1415.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6322
  1416.                 ENDIF
  1417.                 IF (CT_PAGE == 6)
  1418.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6325
  1419.                 ENDIF
  1420.                 IF (CT_PAGE == 7)
  1421.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6328
  1422.                 ENDIF
  1423.                 IF (CT_PAGE == 8)
  1424.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16H.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6331
  1425.                 ENDIF
  1426.                 SET VAR=VILD_LAST[215,380,250,395];
  1427.                 SET VAR=VILD_TIMES[470,380,520,395];
  1428.             ENDIF
  1429.             IF (CT_SUB_MODE == ZZAZZ)
  1430.                 RUN EXPR=CT_LASTPAGE(7)
  1431.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND17.BMP[50,95,249,319];
  1432.                 IF (CT_PAGE == 1)
  1433.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6340
  1434.                 ENDIF
  1435.                 IF (CT_PAGE == 2)
  1436.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6343
  1437.                 ENDIF
  1438.                 IF (CT_PAGE == 3)
  1439.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6346
  1440.                 ENDIF
  1441.                 IF (CT_PAGE == 4)
  1442.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6349
  1443.                 ENDIF
  1444.                 IF (CT_PAGE == 5)
  1445.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6352
  1446.                 ENDIF
  1447.                 IF (CT_PAGE == 6)
  1448.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6355
  1449.                 ENDIF
  1450.                 IF (CT_PAGE == 7)
  1451.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6358
  1452.                 ENDIF
  1453.                 SET VAR=ZZAZZ_LAST[215,380,250,395];
  1454.                 SET VAR=ZZAZZ_TIMES[470,380,520,395];
  1455.             ENDIF
  1456.             IF (CT_SUB_MODE == MARM)
  1457.                 RUN EXPR=CT_LASTPAGE(4)
  1458.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND18.BMP[50,95,249,319];
  1459.                 IF (CT_PAGE == 1)
  1460.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND18A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6367
  1461.                 ENDIF
  1462.                 IF (CT_PAGE == 2)
  1463.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND18B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6370
  1464.                 ENDIF
  1465.                 IF (CT_PAGE == 3)
  1466.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND18C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6373
  1467.                 ENDIF
  1468.                 IF (CT_PAGE == 4)
  1469.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND18D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6376
  1470.                 ENDIF
  1471.                 SET VAR=MARM_LAST[215,380,250,395];
  1472.                 SET VAR=MARM_TIMES[470,380,520,395];
  1473.             ENDIF
  1474.             IF (CT_SUB_MODE == KUR)
  1475.                 RUN EXPR=CT_LASTPAGE(9)
  1476.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND19.BMP[50,95,249,319];
  1477.                 IF (CT_PAGE == 1)
  1478.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6385
  1479.                 ENDIF
  1480.                 IF (CT_PAGE == 2)
  1481.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6388
  1482.                 ENDIF
  1483.                 IF (CT_PAGE == 3)
  1484.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6391
  1485.                 ENDIF
  1486.                 IF (CT_PAGE == 4)
  1487.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6394
  1488.                 ENDIF
  1489.                 IF (CT_PAGE == 5)
  1490.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6397
  1491.                 ENDIF
  1492.                 IF (CT_PAGE == 6)
  1493.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6400
  1494.                 ENDIF
  1495.                 IF (CT_PAGE == 7)
  1496.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6403
  1497.                 ENDIF
  1498.                 IF (CT_PAGE == 8)
  1499.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19H.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6406
  1500.                 ENDIF
  1501.                 IF (CT_PAGE == 9)
  1502.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19I.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6406
  1503.                 ENDIF
  1504.                 SET VAR=KUR_LAST[215,380,250,395];
  1505.                 SET VAR=KUR_TIMES[470,380,520,395];
  1506.             ENDIF
  1507.             IF (CT_SUB_MODE == NAPTH)
  1508.                 RUN EXPR=CT_LASTPAGE(2)                     
  1509.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND20.BMP[50,95,249,319];
  1510.                 IF (CT_PAGE == 1)
  1511.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND20A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6415
  1512.                 ENDIF
  1513.                 IF (CT_PAGE == 2)
  1514.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND20B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6418
  1515.                 ENDIF
  1516.                 SET VAR=NAPTH_LAST[215,380,250,395];
  1517.                 SET VAR=NAPTH_TIMES[470,380,520,395];
  1518.             ENDIF
  1519.             IF (CT_SUB_MODE == WISP)
  1520.                 RUN EXPR=CT_LASTPAGE(2)                     
  1521.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND21.BMP[50,95,249,319];
  1522.                 IF (CT_PAGE == 1)
  1523.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND21A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6427
  1524.                 ENDIF
  1525.                 IF (CT_PAGE == 2)
  1526.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND21B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6430
  1527.                 ENDIF
  1528.                 SET VAR=WISP_LAST[215,380,250,395];
  1529.                 SET VAR=WISP_TIMES[470,380,520,395];
  1530.             ENDIF
  1531.             IF (CT_SUB_MODE == MOLAS)
  1532.                 RUN EXPR=CT_LASTPAGE(1)                     
  1533.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND22.BMP[50,95,249,319];
  1534.                 IF (CT_PAGE == 1)
  1535.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND22A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6439
  1536.                 ENDIF
  1537.                 SET VAR=MOLAS_LAST[215,380,250,395];
  1538.                 SET VAR=MOLAS_TIMES[470,380,520,395];
  1539.             ENDIF
  1540.             IF (CT_SUB_MODE == BLOB)
  1541.                 RUN EXPR=CT_LASTPAGE(5)
  1542.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND23.BMP[50,95,249,319];
  1543.                 IF (CT_PAGE == 1)
  1544.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND23A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6448
  1545.                 ENDIF
  1546.                 IF (CT_PAGE == 2)
  1547.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND23B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6451
  1548.                 ENDIF
  1549.                 IF (CT_PAGE == 3)
  1550.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND23C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6454
  1551.                 ENDIF
  1552.                 IF (CT_PAGE == 4)
  1553.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND23D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6457
  1554.                 ENDIF
  1555.                 IF (CT_PAGE == 5)
  1556.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND23E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6460
  1557.                 ENDIF
  1558.                 SET VAR=BLOB_LAST[215,380,250,395];
  1559.                 SET VAR=BLOB_TIMES[470,380,520,395];
  1560.             ENDIF
  1561.             IF (CT_SUB_MODE == MYTOS)
  1562.                 RUN EXPR=CT_LASTPAGE(1)                     
  1563.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND24.BMP[50,95,249,319];
  1564.                 IF (CT_PAGE == 1)
  1565.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND24A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6469
  1566.                 ENDIF
  1567.                 SET VAR=MYTOS_LAST[215,380,250,395];
  1568.                 SET VAR=MYTOS_TIMES[470,380,520,395];
  1569.             ENDIF
  1570.             IF (CT_SUB_MODE == FRUF)
  1571.                 RUN EXPR=CT_LASTPAGE(2)                     
  1572.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND25.BMP[50,95,249,319];
  1573.                 IF (CT_PAGE == 1)
  1574.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND25A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6478
  1575.                 ENDIF
  1576.                 IF (CT_PAGE == 2)
  1577.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND25B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6481
  1578.                 ENDIF
  1579.                 SET VAR=FRUF_LAST[215,380,250,395];
  1580.                 SET VAR=FRUF_TIMES[470,380,520,395];
  1581.             ENDIF
  1582.             IF (CT_SUB_MODE == OYLEE)
  1583.                 RUN EXPR=CT_LASTPAGE(2)                     
  1584.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND26.BMP[50,95,249,319];
  1585.                 IF (CT_PAGE == 1)
  1586.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND26A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6490
  1587.                 ENDIF
  1588.                 IF (CT_PAGE == 2)
  1589.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND26B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6493
  1590.                 ENDIF
  1591.                 SET VAR=OYLEE_LAST[215,380,250,395];
  1592.                 SET VAR=OYLEE_TIMES[470,380,520,395];
  1593.             ENDIF
  1594.             IF (CT_SUB_MODE == AKRO)
  1595.                 RUN EXPR=CT_LASTPAGE(2)                     
  1596.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND27.BMP[50,95,249,319];
  1597.                 IF (CT_PAGE == 1)
  1598.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND27A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6502
  1599.                 ENDIF
  1600.                 IF (CT_PAGE == 2)
  1601.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND27B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6505
  1602.                 ENDIF
  1603.                 SET VAR=AKRO_LAST[215,380,250,395];
  1604.                 SET VAR=AKRO_TIMES[470,380,520,395];
  1605.             ENDIF
  1606.             IF (CT_SUB_MODE == HUM)
  1607.                 RUN EXPR=CT_LASTPAGE(5)
  1608.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND28.BMP[50,95,249,319];
  1609.                 IF (CT_PAGE == 1)
  1610.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND28A.TXT[300,80,560,400] SIZE 16 AS TITLE %1; //%%6514
  1611.                 ENDIF
  1612.                 IF (CT_PAGE == 2)
  1613.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND28B.TXT[300,80,560,400] SIZE 16 AS TITLE %1; //%%6517
  1614.                 ENDIF
  1615.                 IF (CT_PAGE == 3)
  1616.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND28C.TXT[300,80,560,400] SIZE 16 AS TITLE %1; //%%6520
  1617.                 ENDIF
  1618.                 IF (CT_PAGE == 4)
  1619.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND28D.TXT[300,80,560,400] SIZE 16 AS TITLE %1; //%%6523
  1620.                 ENDIF
  1621.                 IF (CT_PAGE == 5)
  1622.                     SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND28E.TXT[300,80,560,400] SIZE 16 AS TITLE %1; //%%6526
  1623.                 ENDIF
  1624.                 SET VAR=HUM_LAST[215,380,250,395];
  1625.                 SET VAR=HUM_TIMES[470,380,520,395];
  1626.             ENDIF
  1627.             SET TXT=LAST_ACCESSED[100,380,210,400] AS TITLE; //%%6531
  1628.             SET TXT=NUMBER_OF_TIMES_ACCESSED[280,380,400,400] AS TITLE; //%%6532
  1629.             IF (CT_PAGE < CT_LASTPAGE )
  1630.                 SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND05.BMP[430,445]+2%1{
  1631.                     RUN EXPR=CT_PAGE( CT_PAGE + 1 );
  1632.                     RUN COMMAND=UPDATE;
  1633.                 };
  1634.             ENDIF
  1635.             IF (CT_PAGE > 1)
  1636.                 SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND06.BMP[220,445]+2%1{
  1637.                     RUN EXPR=CT_PAGE( CT_PAGE - 1 );
  1638.                     RUN COMMAND=UPDATE;
  1639.                 };
  1640.             ENDIF
  1641.             SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
  1642.                 IF (CT_SUB_MODE == AUD)
  1643.                     RUN EXPR=AUD_LAST( TURNCOUNT );
  1644.                     RUN EXPR=AUD_TIMES( AUD_TIMES + 1 );
  1645.                 ENDIF
  1646.                 IF (CT_SUB_MODE == SAL)
  1647.                     RUN EXPR=SAL_LAST( TURNCOUNT );
  1648.                     RUN EXPR=SAL_TIMES( SAL_TIMES + 1 );
  1649.                 ENDIF
  1650.                 IF (CT_SUB_MODE == NEB)
  1651.                     RUN EXPR=NEB_LAST( TURNCOUNT );
  1652.                     RUN EXPR=NEB_TIMES( NEB_TIMES + 1 );
  1653.                 ENDIF
  1654.                 IF (CT_SUB_MODE == SRAF)
  1655.                     RUN EXPR=SRAF_LAST( TURNCOUNT );
  1656.                     RUN EXPR=SRAF_TIMES( SRAF_TIMES + 1 );
  1657.                 ENDIF
  1658.                 IF (CT_SUB_MODE == TRI)
  1659.                     RUN EXPR=TRI_LAST( TURNCOUNT );
  1660.                     RUN EXPR=TRI_TIMES( TRI_TIMES + 1 );
  1661.                 ENDIF
  1662.                 IF (CT_SUB_MODE == VEDJ)
  1663.                     RUN EXPR=VEDJ_LAST( TURNCOUNT );
  1664.                     RUN EXPR=VEDJ_TIMES( VEDJ_TIMES + 1 );
  1665.                 ENDIF
  1666.                 IF (CT_SUB_MODE == VILD)
  1667.                     RUN EXPR=VILD_LAST( TURNCOUNT );
  1668.                     RUN EXPR=VILD_TIMES( VILD_TIMES + 1 );
  1669.                 ENDIF
  1670.                 IF (CT_SUB_MODE == ZZAZZ)
  1671.                     RUN EXPR=ZZAZZ_LAST( TURNCOUNT );
  1672.                     RUN EXPR=ZZAZZ_TIMES( ZZAZZ_TIMES + 1 );
  1673.                 ENDIF
  1674.                 IF (CT_SUB_MODE == MARM)
  1675.                     RUN EXPR=MARM_LAST( TURNCOUNT );
  1676.                     RUN EXPR=MARM_TIMES( MARM_TIMES + 1 );
  1677.                     IF ( NID_FIRST_ACCESSED == 7777)
  1678.                         RUN EXPR=NID_FIRST_ACCESSED(TURNCOUNT + 50);
  1679.                     ENDIF
  1680.                 ENDIF
  1681.                 IF (CT_SUB_MODE == KUR)
  1682.                     RUN EXPR=KUR_LAST( TURNCOUNT );
  1683.                     RUN EXPR=KUR_TIMES( KUR_TIMES + 1 );
  1684.                     IF ( NID_FIRST_ACCESSED == 7777)
  1685.                         RUN EXPR=NID_FIRST_ACCESSED(TURNCOUNT + 50);
  1686.                     ENDIF
  1687.                 ENDIF
  1688.                 IF (CT_SUB_MODE == NAPTH)
  1689.                     RUN EXPR=NAPTH_LAST( TURNCOUNT );
  1690.                     RUN EXPR=NAPTH_TIMES( NAPTH_TIMES + 1 );
  1691.                 ENDIF
  1692.                 IF (CT_SUB_MODE == WISP)
  1693.                     RUN EXPR=WISP_LAST( TURNCOUNT );
  1694.                     RUN EXPR=WISP_TIMES( WISP_TIMES + 1 );
  1695.                 ENDIF
  1696.                 IF (CT_SUB_MODE == MOLAS)
  1697.                     RUN EXPR=MOLAS_LAST( TURNCOUNT );
  1698.                     RUN EXPR=MOLAS_TIMES( MOLAS_TIMES + 1 );
  1699.                 ENDIF
  1700.                 IF (CT_SUB_MODE == BLOB)
  1701.                     RUN EXPR=BLOB_LAST( TURNCOUNT );
  1702.                     RUN EXPR=BLOB_TIMES( BLOB_TIMES + 1 );
  1703.                 ENDIF
  1704.                 IF (CT_SUB_MODE == MYTOS)
  1705.                     RUN EXPR=MYTOS_LAST( TURNCOUNT );
  1706.                     RUN EXPR=MYTOS_TIMES( MYTOS_TIMES + 1 );
  1707.                 ENDIF
  1708.                 IF (CT_SUB_MODE == FRUF)
  1709.                     RUN EXPR=FRUF_LAST( TURNCOUNT );
  1710.                     RUN EXPR=FRUF_TIMES( FRUF_TIMES + 1 );
  1711.                 ENDIF
  1712.                 IF (CT_SUB_MODE == OYLEE)
  1713.                     RUN EXPR=OYLEE_LAST( TURNCOUNT );
  1714.                     RUN EXPR=OYLEE_TIMES( OYLEE_TIMES + 1 );
  1715.                 ENDIF
  1716.                 IF (CT_SUB_MODE == AKRO)
  1717.                     RUN EXPR=AKRO_LAST( TURNCOUNT );
  1718.                     RUN EXPR=AKRO_TIMES( AKRO_TIMES + 1 );
  1719.                 ENDIF
  1720.                 IF (CT_SUB_MODE == HUM)
  1721.                     RUN EXPR=HUM_LAST( TURNCOUNT );
  1722.                     RUN EXPR=HUM_TIMES( HUM_TIMES + 1 );
  1723.                     IF ( NID_SEC_ACCESSED == 7777)
  1724.                         RUN EXPR=NID_SEC_ACCESSED(TURNCOUNT + 100);
  1725.                     ENDIF
  1726.                 ENDIF
  1727.                 RUN EXPR=CT_MODE(RACEMENU);
  1728.                 RUN COMMAND=UPDATE;
  1729.             };
  1730.             SET ARE=NOTHING[300,80,560,400];
  1731.             SET ARE=NOTHING[50,95,249,319];
  1732.         ENDIF
  1733.  
  1734.          IF (CT_MODE == PLANETMENU)
  1735.             SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND03.BMP[65,22];
  1736.             SET ARE=NOTHING[60,260,550,360];
  1737.             SET ARE = ARMPIT3[92,59,230,79]%1 {
  1738.                 RUN EXPR = CT_MODE(SUBMENUP);
  1739.                 RUN EXPR = CT_SUB_MODE(ARM3);
  1740.             };
  1741.             SET ARE = ARMPIT6[92,89,230,109] %1 {
  1742.                 RUN EXPR = CT_MODE(SUBMENUP);
  1743.                 RUN EXPR = CT_SUB_MODE(ARM6);
  1744.             };
  1745.             SET ARE = BULB[92,120,230,140]%1 {
  1746.                 RUN EXPR = CT_MODE(SUBMENUP);
  1747.                 RUN EXPR = CT_SUB_MODE(BULB);
  1748.             };
  1749.             SET ARE = DING[92,152,230,172]%1 {
  1750.                 RUN EXPR = CT_MODE(SUBMENUP);
  1751.                 RUN EXPR = CT_SUB_MODE(DING);
  1752.             };
  1753.             SET ARE = EARTH[92,183,230,203]%1 {
  1754.                 RUN EXPR = CT_MODE(SUBMENUP);
  1755.                 RUN EXPR = CT_SUB_MODE(EARTH);
  1756.             };
  1757.             SET ARE = FRUUFP[92,214,230,234]%1 {
  1758.                 RUN EXPR = CT_MODE(SUBMENUP);
  1759.                 RUN EXPR = CT_SUB_MODE(FRUUFP);
  1760.             };
  1761.             SET ARE = HPOCTYL[92,245,230,265] %1 {
  1762.                 RUN EXPR = CT_MODE(SUBMENUP);
  1763.                 RUN EXPR = CT_SUB_MODE(HPOCTYL);
  1764.             };
  1765.             SET ARE = KARK[242,58,380,78]%1 {
  1766.                 RUN EXPR = CT_MODE(SUBMENUP);
  1767.                 RUN EXPR = CT_SUB_MODE(KARK);
  1768.             };
  1769.             SET ARE = KOEK[242,89,380,109]%1 {
  1770.                 RUN EXPR = CT_MODE(SUBMENUP);
  1771.                 RUN EXPR = CT_SUB_MODE(KOEK);
  1772.             };
  1773.             SET ARE = KURP[242,120,380,140]%1 {
  1774.                 RUN EXPR = CT_MODE(SUBMENUP);
  1775.                 RUN EXPR = CT_SUB_MODE(KURP);
  1776.             };
  1777.             SET ARE = LAYG[242,152,380,172] %1 {
  1778.                 RUN EXPR = CT_MODE(SUBMENUP);
  1779.                 RUN EXPR = CT_SUB_MODE(LAYG);
  1780.             };
  1781.             SET ARE = MARA[242,183,380,203]%1 {
  1782.                 RUN EXPR = CT_MODE(SUBMENUP);
  1783.                 RUN EXPR = CT_SUB_MODE(MARA);
  1784.             };
  1785.             SET ARE = OOZE[242,214,380,234] %1 {
  1786.                 RUN EXPR = CT_MODE(SUBMENUP);
  1787.                 RUN EXPR = CT_SUB_MODE(OOZE);
  1788.             };
  1789.             SET ARE = PINNA[242,245,380,265] %1 {
  1790.                 RUN EXPR = CT_MODE(SUBMENUP);
  1791.                 RUN EXPR = CT_SUB_MODE(PINNA);
  1792.             };
  1793.             SET ARE = PZZAZZ[392,59,530,80] %1 {
  1794.                 RUN EXPR = CT_MODE(SUBMENUP);
  1795.                 RUN EXPR = CT_SUB_MODE(PZZAZZ);
  1796.             };
  1797.             SET ARE = RUMBLE[392,89,530,109] %1 {
  1798.                 RUN EXPR = CT_MODE(SUBMENUP);
  1799.                 RUN EXPR = CT_SUB_MODE(RUMBLE);
  1800.             };
  1801.             SET ARE = SAVIN[392,120,530,140] %1 {
  1802.                 RUN EXPR = CT_MODE(SUBMENUP);
  1803.                 RUN EXPR = CT_SUB_MODE(SAVIN);
  1804.             };
  1805.             SET ARE = SCALON[392,152,530,172]%1 {
  1806.                 RUN EXPR = CT_MODE(SUBMENUP);
  1807.                 RUN EXPR = CT_SUB_MODE(SCALON);
  1808.             };
  1809.             SET ARE = SLAG[392,183,530,203] %1 {
  1810.                 RUN EXPR = CT_MODE(SUBMENUP);
  1811.                 RUN EXPR = CT_SUB_MODE(SLAG);
  1812.             };
  1813.             SET ARE = UBLEEK[392,214,530,234] %1 {
  1814.                 RUN EXPR = CT_MODE(SUBMENUP);
  1815.                 RUN EXPR = CT_SUB_MODE(UBLEEK);
  1816.             };
  1817.             SET ARE = YZORE[392,245,530,265] %1 {
  1818.                 RUN EXPR = CT_MODE(SUBMENUP);
  1819.                 RUN EXPR = CT_SUB_MODE(YZORE);
  1820.             };
  1821.             SET BUT = $SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
  1822.                 RUN EXPR = CT_MODE(MAINMENU);
  1823.             };
  1824.         ENDIF
  1825.         IF (CT_MODE == SUBMENUP)
  1826.             IF (CT_SUB_MODE == ARM3)
  1827.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\ARM3.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6728
  1828.                 SET VAR=ARM3_LAST[215,380,250,395];
  1829.                 SET VAR=ARM3_TIMES[470,380,520,395];
  1830.             ENDIF
  1831.              IF (CT_SUB_MODE == ARM6)
  1832.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\ARM6.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6733
  1833.                 SET VAR=ARM6_LAST[215,380,250,395];
  1834.                 SET VAR=ARM6_TIMES[470,380,520,395];
  1835.             ENDIF
  1836.               IF (CT_SUB_MODE == BULB)
  1837.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BULB.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6738
  1838.                 SET VAR=BULB_LAST[215,380,250,395];
  1839.                 SET VAR=BULB_TIMES[470,380,520,395];
  1840.             ENDIF
  1841.                IF (CT_SUB_MODE == DING)
  1842.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\DING.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6743
  1843.                 SET VAR=DING_LAST[215,380,250,395];
  1844.                 SET VAR=DING_TIMES[470,380,520,395];
  1845.             ENDIF
  1846.                IF (CT_SUB_MODE == EARTH)
  1847.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\EARTH.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6748
  1848.                 SET VAR=EARTH_LAST[215,380,250,395];
  1849.                 SET VAR=EARTH_TIMES[470,380,520,395];
  1850.             ENDIF
  1851.               IF (CT_SUB_MODE == FRUUFP)
  1852.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\FRUUFP.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6753
  1853.                 SET VAR=FRUUFP_LAST[215,380,250,395];
  1854.                 SET VAR=FRUUFP_TIMES[470,380,520,395];
  1855.             ENDIF
  1856.               IF (CT_SUB_MODE == HPOCTYL)
  1857.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\HPOCTYL.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6758
  1858.                 SET VAR=HPOCTYL_LAST[215,380,250,395];
  1859.                 SET VAR=HPOCTYL_TIMES[470,380,520,395];
  1860.             ENDIF
  1861.                IF (CT_SUB_MODE == KARK)
  1862.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\KARK.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6763
  1863.                 SET VAR=KARK_LAST[215,380,250,395];
  1864.                 SET VAR=KARK_TIMES[470,380,520,395];
  1865.             ENDIF
  1866.               IF (CT_SUB_MODE == KOEK)
  1867.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\KOEK.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6768
  1868.                 SET VAR=KOEK_LAST[215,380,250,395];
  1869.                 SET VAR=KOEK_TIMES[470,380,520,395];
  1870.             ENDIF
  1871.               IF (CT_SUB_MODE == KURP)
  1872.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\KURP.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6773
  1873.                 SET VAR=KURP_LAST[215,380,250,395];
  1874.                 SET VAR=KURP_TIMES[470,380,520,395];
  1875.             ENDIF
  1876.                IF (CT_SUB_MODE == LAYG)
  1877.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\LAYG.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6778
  1878.                 SET VAR=LAYG_LAST[215,380,250,395];
  1879.                 SET VAR=LAYG_TIMES[470,380,520,395];
  1880.             ENDIF
  1881.               IF (CT_SUB_MODE == MARA)
  1882.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\MARA.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6783
  1883.                 SET VAR=MARA_LAST[215,380,250,395];
  1884.                 SET VAR=MARA_TIMES[470,380,520,395];
  1885.             ENDIF
  1886.               IF (CT_SUB_MODE == OOZE)
  1887.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\OOZE.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6788
  1888.                 SET VAR=OOZE_LAST[215,380,250,395];
  1889.                 SET VAR=OOZE_TIMES[470,380,520,395];
  1890.             ENDIF
  1891.               IF (CT_SUB_MODE == PINNA)
  1892.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\PINNA.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6793
  1893.                 SET VAR=PINNA_LAST[215,380,250,395];
  1894.                 SET VAR=PINNA_TIMES[470,380,520,395];
  1895.             ENDIF
  1896.                IF (CT_SUB_MODE == PZZAZZ)
  1897.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\PZZAZZ.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6798
  1898.                 SET VAR=PZZAZZ_LAST[215,380,250,395];
  1899.                 SET VAR=PZZAZZ_TIMES[470,380,520,395];
  1900.             ENDIF
  1901.               IF (CT_SUB_MODE == RUMBLE)
  1902.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\RUMBLE.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6803
  1903.                 SET VAR=RUMBLE_LAST[215,380,250,395];
  1904.                 SET VAR=RUMBLE_TIMES[470,380,520,395];
  1905.             ENDIF
  1906.               IF (CT_SUB_MODE == SAVIN)
  1907.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\SAVIN.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6808
  1908.                 SET VAR=SAVIN_LAST[215,380,250,395];
  1909.                 SET VAR=SAVIN_TIMES[470,380,520,395];
  1910.             ENDIF
  1911.               IF (CT_SUB_MODE == SCALON)
  1912.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\SCALON.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6813
  1913.                 SET VAR=SCALON_LAST[215,380,250,395];
  1914.                 SET VAR=SCALON_TIMES[470,380,520,395];
  1915.             ENDIF
  1916.                IF (CT_SUB_MODE == SLAG)
  1917.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\SLAG.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6818
  1918.                 SET VAR=SLAG_LAST[215,380,250,395];
  1919.                 SET VAR=SLAG_TIMES[470,380,520,395];
  1920.             ENDIF
  1921.               IF (CT_SUB_MODE == UBLEEK)
  1922.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\UBLEEK.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6823
  1923.                 SET VAR=UBLEEK_LAST[215,380,250,395];
  1924.                 SET VAR=UBLEEK_TIMES[470,380,520,395];
  1925.             ENDIF
  1926.               IF (CT_SUB_MODE == YZORE)
  1927.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\YZORE.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6828
  1928.                 SET VAR=YZORE_LAST[215,380,250,395];
  1929.                 SET VAR=YZORE_TIMES[470,380,520,395];
  1930.             ENDIF
  1931.  
  1932.             SET TXT=LAST_ACCESSED[100,380,210,400] AS TITLE; //%%6833
  1933.             SET TXT=NUMBER_OF_TIMES_ACCESSED[280,380,400,400] AS TITLE; //%%6834
  1934.  
  1935.             SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
  1936.                 IF (CT_SUB_MODE == ARM3)
  1937.                     RUN EXPR=ARM3_LAST( TURNCOUNT );
  1938.                     RUN EXPR=ARM3_TIMES( ARM3_TIMES + 1 );
  1939.                 ENDIF
  1940.                 IF (CT_SUB_MODE == ARM6)
  1941.                     RUN EXPR=ARM6_LAST( TURNCOUNT );
  1942.                     RUN EXPR=ARM6_TIMES( ARM6_TIMES + 1 );
  1943.                 ENDIF
  1944.                 IF (CT_SUB_MODE == BULB)
  1945.                     RUN EXPR=BULB_LAST( TURNCOUNT );
  1946.                     RUN EXPR=BULB_TIMES( BULB_TIMES + 1 );
  1947.                 ENDIF
  1948.                 IF (CT_SUB_MODE == DING)
  1949.                     RUN EXPR=DING_LAST( TURNCOUNT );
  1950.                     RUN EXPR=DING_TIMES( DING_TIMES + 1 );
  1951.                 ENDIF
  1952.                 IF (CT_SUB_MODE == EARTH)
  1953.                     RUN EXPR=EARTH_LAST( TURNCOUNT );
  1954.                     RUN EXPR=EARTH_TIMES( EARTH_TIMES + 1 );
  1955.                 ENDIF
  1956.                 IF (CT_SUB_MODE == FRUUFP)
  1957.                     RUN EXPR=FRUUFP_LAST( TURNCOUNT );
  1958.                     RUN EXPR=FRUUFP_TIMES( FRUUFP_TIMES + 1 );
  1959.                 ENDIF
  1960.                 IF (CT_SUB_MODE == HPOCTYL)
  1961.                     RUN EXPR=HPOCTYL_LAST( TURNCOUNT );
  1962.                     RUN EXPR=HPOCTYL_TIMES( HPOCTYL_TIMES + 1 );
  1963.                 ENDIF
  1964.                 IF (CT_SUB_MODE == KARK)
  1965.                     RUN EXPR=KARK_LAST( TURNCOUNT );
  1966.                     RUN EXPR=KARK_TIMES( KARK_TIMES + 1 );
  1967.                 ENDIF
  1968.                 IF (CT_SUB_MODE == KOEK)
  1969.                     RUN EXPR=KOEK_LAST( TURNCOUNT );
  1970.                     RUN EXPR=KOEK_TIMES( KOEK_TIMES + 1 );
  1971.                 ENDIF
  1972.                 IF (CT_SUB_MODE == KURP)
  1973.                     RUN EXPR=KURP_LAST( TURNCOUNT );
  1974.                     RUN EXPR=KURP_TIMES( KURP_TIMES + 1 );
  1975.                 ENDIF
  1976.                 IF (CT_SUB_MODE == LAYG)
  1977.                     RUN EXPR=LAYG_LAST( TURNCOUNT );
  1978.                     RUN EXPR=LAYG_TIMES( LAYG_TIMES + 1 );
  1979.                 ENDIF
  1980.                 IF (CT_SUB_MODE == MARA)
  1981.                     RUN EXPR=MARA_LAST( TURNCOUNT );
  1982.                     RUN EXPR=MARA_TIMES( MARA_TIMES + 1 );
  1983.                 ENDIF
  1984.                 IF (CT_SUB_MODE == OOZE)
  1985.                     RUN EXPR=OOZE_LAST( TURNCOUNT );
  1986.                     RUN EXPR=OOZE_TIMES( OOZE_TIMES + 1 );
  1987.                 ENDIF
  1988.                 IF (CT_SUB_MODE == PINNA)
  1989.                     RUN EXPR=PINNA_LAST( TURNCOUNT );
  1990.                     RUN EXPR=PINNA_TIMES( PINNA_TIMES + 1 );
  1991.                 ENDIF
  1992.                 IF (CT_SUB_MODE == PZZAZZ)
  1993.                     RUN EXPR=PZZAZZ_LAST( TURNCOUNT );
  1994.                     RUN EXPR=PZZAZZ_TIMES( PZZAZZ_TIMES + 1 );
  1995.                 ENDIF
  1996.                 IF (CT_SUB_MODE == RUMBLE)
  1997.                     RUN EXPR=RUMBLE_LAST( TURNCOUNT );
  1998.                     RUN EXPR=RUMBLE_TIMES( RUMBLE_TIMES + 1 );
  1999.                 ENDIF
  2000.                 IF (CT_SUB_MODE == SAVIN)
  2001.                     RUN EXPR=SAVIN_LAST( TURNCOUNT );
  2002.                     RUN EXPR=SAVIN_TIMES( SAVIN_TIMES + 1 );
  2003.                 ENDIF
  2004.                 IF (CT_SUB_MODE == SCALON)
  2005.                     RUN EXPR=SCALON_LAST( TURNCOUNT );
  2006.                     RUN EXPR=SCALON_TIMES( SCALON_TIMES + 1 );
  2007.                 ENDIF
  2008.                 IF (CT_SUB_MODE == SLAG)
  2009.                     RUN EXPR=SLAG_LAST( TURNCOUNT );
  2010.                     RUN EXPR=SLAG_TIMES( SLAG_TIMES + 1 );
  2011.                 ENDIF
  2012.                 IF (CT_SUB_MODE == UBLEEK)
  2013.                     RUN EXPR=UBLEEK_LAST( TURNCOUNT );
  2014.                     RUN EXPR=UBLEEK_TIMES( UBLEEK_TIMES + 1 );
  2015.                 ENDIF
  2016.                 IF (CT_SUB_MODE == YZORE)
  2017.                     RUN EXPR=YZORE_LAST( TURNCOUNT );
  2018.                     RUN EXPR=YZORE_TIMES( YZORE_TIMES + 1 );
  2019.                 ENDIF
  2020.  
  2021.                 RUN EXPR=CT_MODE(PLANETMENU);
  2022.                 RUN COMMAND=UPDATE;
  2023.             };
  2024.             SET ARE=NOTHING[140,110,540,350];
  2025.         ENDIF
  2026.  
  2027.          IF (CT_MODE == MOVIEMENU)
  2028.             SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND04.BMP[68,32];
  2029.             SET ARE=NOTHING[16,5,580,85];
  2030.             SET ARE = TSUNAMI[149,89,475,116]%1 {
  2031.                 RUN EXPR = CT_MODE(SUBMENUM);
  2032.                 RUN EXPR = CT_SUB_MODE(TSUNAMI);
  2033.             };
  2034.             SET ARE = BLOBFAT[149,127,475,155] %1 {
  2035.                 RUN EXPR = CT_MODE(SUBMENUM);
  2036.                 RUN EXPR = CT_SUB_MODE(BLOBFAT);
  2037.             };
  2038.             SET ARE = EXTER[149,167,475,194]%1 {
  2039.                 RUN EXPR = CT_MODE(SUBMENUM);
  2040.                 RUN EXPR = CT_SUB_MODE(EXTER);
  2041.             };
  2042.             SET ARE = DIE[149,204,475,234]%1 {
  2043.                 RUN EXPR = CT_MODE(SUBMENUM);
  2044.                 RUN EXPR = CT_SUB_MODE(DIE);
  2045.             };
  2046.             SET ARE = UPTITE[149,244,475,273]%1 {
  2047.                 RUN EXPR = CT_MODE(SUBMENUM);
  2048.                 RUN EXPR = CT_SUB_MODE(UPTITE);
  2049.             };
  2050.             SET ARE = PORCH[149,283,475,312]%1 {
  2051.                 RUN EXPR = CT_MODE(SUBMENUM);
  2052.                 RUN EXPR = CT_SUB_MODE(PORCH);
  2053.             };
  2054.             SET ARE = MIRROR[149,322,475,351] %1 {
  2055.                 RUN EXPR = CT_MODE(SUBMENUM);
  2056.                 RUN EXPR = CT_SUB_MODE(MIRROR);
  2057.             };
  2058.             SET ARE = JERRY[149,361,475,390]%1 {
  2059.                 RUN EXPR = CT_MODE(SUBMENUM);
  2060.                 RUN EXPR = CT_SUB_MODE(JERRY);
  2061.             };
  2062.             SET BUT = $SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
  2063.                 RUN EXPR = CT_MODE(MAINMENU);
  2064.             };
  2065.         ENDIF
  2066.         IF (CT_MODE == SUBMENUM)
  2067.             SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND30.BMP[62,90];
  2068.             SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND34.BMP[276,300];
  2069.             IF (CT_SUB_MODE == TSUNAMI)
  2070.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\TSUNAMI.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%6969
  2071.                 SET VAR=TSUNAMI_LAST[215,380,250,395];
  2072.                 SET VAR=TSUNAMI_TIMES[470,380,520,395];
  2073.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[345,300];
  2074.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[414,300];
  2075.             ENDIF
  2076.              IF (CT_SUB_MODE == BLOBFAT)
  2077.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BLOBFAT.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%6976
  2078.                 SET VAR=BLOBFAT_LAST[215,380,250,395];
  2079.                 SET VAR=BLOBFAT_TIMES[470,380,520,395];
  2080.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[345,300];
  2081.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[414,300];
  2082.             ENDIF
  2083.               IF (CT_SUB_MODE == EXTER)
  2084.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\EXTER.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%6983
  2085.                 SET VAR=EXTER_LAST[215,380,250,395];
  2086.                 SET VAR=EXTER_TIMES[470,380,520,395];
  2087.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[345,300];
  2088.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[414,300];
  2089.             ENDIF
  2090.                IF (CT_SUB_MODE == DIE)
  2091.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\DIE.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%6990
  2092.                 SET VAR=DIE_LAST[215,380,250,395];
  2093.                 SET VAR=DIE_TIMES[470,380,520,395];
  2094.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[345,300];
  2095.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[414,300];
  2096.             ENDIF
  2097.                IF (CT_SUB_MODE == UPTITE)
  2098.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\UPTITE.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%6997
  2099.                 SET VAR=UPTITE_LAST[215,380,250,395];
  2100.                 SET VAR=UPTITE_TIMES[470,380,520,395];
  2101.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[345,300];
  2102.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[414,300];
  2103.             ENDIF
  2104.               IF (CT_SUB_MODE == PORCH)
  2105.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\PORCH.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%7004
  2106.                 SET VAR=PORCH_LAST[215,380,250,395];
  2107.                 SET VAR=PORCH_TIMES[470,380,520,395];
  2108.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[345,300];
  2109.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[414,300];
  2110.             ENDIF
  2111.               IF (CT_SUB_MODE == MIRROR)
  2112.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\MIRROR.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%7011
  2113.                 SET VAR=MIRROR_LAST[215,380,250,395];
  2114.                 SET VAR=MIRROR_TIMES[470,380,520,395];
  2115.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[345,300];
  2116.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[414,300];
  2117.             ENDIF
  2118.                IF (CT_SUB_MODE == JERRY)
  2119.                 SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\JERRY.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%7018
  2120.                 SET VAR=JERRY_LAST[215,380,250,395];
  2121.                 SET VAR=JERRY_TIMES[470,380,520,395];
  2122.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[345,300];
  2123.                 SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[414,300];
  2124.             ENDIF
  2125.             SET ARE=NOTHING[0,0,600,440];
  2126.             SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
  2127.                 RUN EXPR=CT_MODE(MOVIEMENU);
  2128.             };
  2129.         ENDIF
  2130.  
  2131.          IF (CT_MODE == ABOUTMENU)
  2132.             SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND33.BMP[80,32];
  2133.             SET BUT = $SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
  2134.                 RUN EXPR = CT_MODE(MAINMENU);
  2135.             };
  2136.             SET ARE=NOTHING[80,32,590,410];
  2137.         ENDIF
  2138. }
  2139.  
  2140. // ARRIVAL MONITOR CLOSEUP
  2141. SDEV BANE_WLD AS CLOSEUP{
  2142.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACE\BACE.BMP;
  2143.     // This is a looping background sound that stops on exit
  2144.     RUN EXPR = ENTRYBANE~~VOLUME( 5 );
  2145.     RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANE LOOP 0 AS MIX SOUNDOVEROK;
  2146.     // CURRENT TIME
  2147.     SET VAR=TURNCOUNT[345,59,377,70] COLOR 7;
  2148.     //H'POCTYL FLIGHT
  2149.     IF (TURNCOUNT > 1930)
  2150.         SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANE1.BMP[346,183];
  2151.     ENDIF
  2152.     // DINGLE-2 FLIGHT
  2153.     IF (TURNCOUNT > 2100) // DEBRIS LOCATED
  2154.         SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANE5.BMP[346,211];
  2155.     ELSE
  2156.         IF (TURNCOUNT > 2000) // LOST CONTACT
  2157.             SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANE4.BMP[346,211];
  2158.         ELSE
  2159.             IF (TURNCOUNT > 1900)     // VERY LATE
  2160.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANE3.BMP[346,211];
  2161.             ELSE        // LATE
  2162.                 SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANE2.BMP[346,211];
  2163.             ENDIF
  2164.         ENDIF
  2165.     ENDIF
  2166.     // DEMO: Removed arrival monitor interactions.
  2167. }
  2168.  
  2169. // DEPARTURE MONITOR CLOSEUP
  2170. SDEV BANED_WLD AS CLOSEUP{
  2171.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACE\BACED.BMP;
  2172.     // This is a looping background sound that stops on exit
  2173.     RUN EXPR = ENTRYBANED~~VOLUME( 5 );
  2174.     RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANED LOOP 0 AS MIX SOUNDOVEROK;
  2175.     // CURRENT TIME
  2176.     SET VAR=TURNCOUNT[345,59,377,70] COLOR 7;
  2177.     //YZORE FLIGHT DEPARTURE
  2178.     IF (TURNCOUNT > 2000)
  2179.         SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANED1.BMP[52,242];
  2180.     ENDIF
  2181.     // DEMO: Removed departure monitor interactions
  2182. }
  2183.  
  2184. // BAR AREA
  2185. SDEV BDP_WLD{
  2186.     SET BKG=$SBARDIR\BAR\PAN\BDP.BMP;
  2187.     RUN EXPR=BARLOC(BDP);
  2188.     RUN EXPR=BARCROWD~~VOLUME(8);
  2189.     RUN EXPR=BARMUSIC~~VOLUME(10);
  2190.     RUN EXPR=BARMUSIC2~~VOLUME(10);
  2191.     RUN EXPR=BARMUSIC3~~VOLUME(10);
  2192.     RUN EXPR=BARMUSIC4~~VOLUME(10);
  2193.         RUN EXPR=BARMUSIC5~~VOLUME(10);
  2194.     RUN EXPR=BARMUSIC6~~VOLUME(10);
  2195.     RUN EXPR=BARMUSIC7~~VOLUME(10);
  2196.     //RUN EXPR=BARMUSIC8~~VOLUME(10);
  2197.  
  2198.     //     Link to Outside Howdy Saloon
  2199.     //
  2200.     // DEMO: Replaced link to outside the saloon with a link to
  2201.     //       to a "far as you can go" screen.
  2202.     SET ARE=[237,185,315,301]%5{
  2203.         RUN COMMAND = STASHWIELD;
  2204.         RUN LNK = BDP_WLD~~TXT2_WLD
  2205.     };
  2206.  
  2207.     // Link to Gambling Hall
  2208.     SET LNK=BGP_WLD[105,179,208,341]@[900,130];
  2209.  
  2210.     // Link to The Lily Pad
  2211.     // DEMO: Replaced link to the lily pad with a link to
  2212.     //       "far as you can go" screen.
  2213.     SET ARE = LILY [409,187,501,307]%5{
  2214.         RUN COMMAND = STASHWIELD;
  2215.         RUN LNK = BDP_WLD~~TXT2_WLD
  2216.     };
  2217.  
  2218.     // Link to Dance Floor
  2219.     // DEMO: Replaced link to the dance floor with a link to
  2220.     //       "far as you can go" screen.
  2221.     SET LNK=BDP_WLD~~TXT2_WLD[1258,207,1460,323]@[878,75]{
  2222.         RUN COMMAND = STASHWIELD;
  2223.     };
  2224.  
  2225.     // Link to Entry Vestibule
  2226.     SET LNK=BAP_WLD[686,199,766,276]@[660,125];
  2227.  
  2228.     // Link Bar Computer
  2229.     SET LNK=BDP_WLD~~TXT2_WLD[8,248,85,360]%2{
  2230.         RUN COMMAND = STASHWIELD;
  2231.     };
  2232.  
  2233.     // Drinkmaster
  2234.     SET ARE=DRINKMASTER[824,172,956,300]%2{
  2235.         RUN LNK = SOLDIER_WLD;
  2236.     };
  2237.     // Soldier 714
  2238.         SET CHR=$SBARDIR\GENERAL\PANIMS\BDSO1.SMK[874,196]%2{
  2239.         RUN LNK = SOLDIER_WLD;
  2240.     };
  2241.     IF (SOLDIER_MET == 1)
  2242.         // Only play Zelda's line if you didn't flash back w/Soldier bar 11/27/96
  2243.         IF (ZFLASHBACK == 0)
  2244.                 RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZESO.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  2245.             RUN EXPR=SOLDIER_MET(2);
  2246.         ENDIF
  2247.     ENDIF
  2248.  
  2249.     // Thud and Fleebix
  2250.     SET ARE=THUDANDFLEEB[1150,242,1256,360]%2{
  2251.         IF (TBHIDE == TRUE)
  2252.             // DEMO: Remove Thud hide support.
  2253.             RUN COMMAND = INSERT OBJECT FBTHMOVIE TO FLEETHUD_WLD;
  2254.             RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2255.             RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2256.             RUN EXPR = TBHIDECOUNT( 0 );
  2257.             RUN EXPR = TBHIDE( FALSE );
  2258.         ENDIF
  2259.         RUN LNK = FLEETHUD_WLD AS CLOSEUP;
  2260.     };
  2261.         // Thud
  2262.         SET CHR=$SBARDIR\GENERAL\PANIMS\BDTB1.SMK[1150,254]%2{
  2263.         IF (TBHIDE == TRUE)
  2264.             // DEMO: Remove Thud hide support.
  2265.             RUN COMMAND = INSERT OBJECT FBTHMOVIE TO FLEETHUD_WLD;
  2266.             RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2267.             RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2268.             RUN EXPR = TBHIDECOUNT( 0 );
  2269.             RUN EXPR = TBHIDE( FALSE );
  2270.         ENDIF
  2271.         RUN LNK = FLEETHUD_WLD AS CLOSEUP;
  2272.     };
  2273.     
  2274.     IF (THUD_GREET == TRUE)
  2275.         IF (THUD_MET == 0)
  2276.             // only have Zelda make the comment if Thud was last one speaking in CIC
  2277.             IF (THUDLAST == TRUE)
  2278.                 RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZETH.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  2279.                 RUN EXPR=THUD_MET(2);
  2280.             ENDIF
  2281.         ENDIF
  2282.     ENDIF
  2283.  
  2284.     // DEMO: Add the Mytosi panimation without a link
  2285.         SET CHR=$SBARDIR\GENERAL\PANIMS\BDMY1.SMK[712,260];
  2286.  
  2287.     // DEMO: Removed link to mydw_wld when sararrive_evt is eq to 6666
  2288.     // PAKSHA STANDING IN DINING AREA
  2289.         SET CHR=$SBARDIR\GENERAL\PANIMS\BDPK1.SMK[1636,226];
  2290.         // CIGARETTE SMOKE
  2291.         SET CHR=$SBARDIR\GENERAL\PANIMS\BDNC2.SMK[1084,246];
  2292.         // MOTHS SITTING AT TABLE
  2293.         SET CHR=$SBARDIR\GENERAL\PANIMS\BDMO1.SMK[1640,218];
  2294.     // DEMO: Removed link to mydw_wld and dwelf sitting at bar if sararrive_evt eq 6666
  2295.     // BAND PLAYING WITHOUT BANDLEADER
  2296.     SET CHR=$SBARDIR\GENERAL\PANIMS\BDBD1.SMK[1298,236];
  2297.     // CHECK TO SEE IF THE BANDLEADER SHOULD STILL BE AROUND
  2298.     SET CHR=$SBARDIR\GENERAL\PANIMS\BDBL1.SMK[1334,242]; // BANDLEADER
  2299.     // Cilia (seen from Bar)
  2300.        SET CHR=$SBARDIR\GENERAL\PANIMS\BDCI1.SMK[1372,242];
  2301.        // SRAFFAN LOOKING OUT WINDOW
  2302.        SET CHR=$SBARDIR\GENERAL\PANIMS\BDNC3.SMK[1438,252];
  2303.  
  2304.     // Secondary objects for this location
  2305.     SET ARE=CATWALK[200,10,488,173]%1{
  2306.         SET TXT = catwalk COLOR 2 AS TITLE; //%%XXXX
  2307.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  2308.             SET TXT=$SBARDIR\BAR\OBJ\BDCATEX.TXT COLOR 2 AS CAPTION; //%%XXXX
  2309.         };
  2310.     };
  2311.     // DEMO: Removed the three spaceport windows.
  2312. }
  2313. // GAMBLING HALL
  2314. SDEV BGP_WLD{
  2315.     SET BKG=$SBARDIR\BAR\PAN\BGP.BMP;
  2316.     RUN EXPR=BARLOC(BGP);
  2317.     RUN EXPR=BARCROWD~~VOLUME(7);
  2318.     RUN EXPR=BARMUSIC~~VOLUME(5);
  2319.     RUN EXPR=BARMUSIC2~~VOLUME(5);
  2320.     RUN EXPR=BARMUSIC3~~VOLUME(5);
  2321.     RUN EXPR=BARMUSIC4~~VOLUME(5);
  2322.     RUN EXPR=BARMUSIC5~~VOLUME(5);
  2323.     RUN EXPR=BARMUSIC6~~VOLUME(5);
  2324.     RUN EXPR=BARMUSIC7~~VOLUME(5);
  2325.     //RUN EXPR=BARMUSIC8~~VOLUME(5);
  2326.  
  2327.     IF (CASINO~~PLAYING == 0)
  2328.         RUN EXPR = CASINO~~VOLUME( 7 );
  2329.         RUN SND = $SBARDIR\BAR\EVENTS\CASINO.WAV^CASINO LOOP 0 AS MIX;
  2330.     ENDIF
  2331.  
  2332.     IF (GAMB_MET==0)
  2333.         RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZEGH.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  2334.         RUN EXPR=GAMB_MET(1);
  2335.     ENDIF
  2336.  
  2337.  
  2338.     // Link to Dining Area
  2339.     // DEMO: Replaced link to the dining area with a
  2340.     //       "far as you go screen".
  2341.     SET ARE=[533,166,739,358]%5{
  2342.         RUN COMMAND = STASHWIELD;
  2343.         RUN LNK=BGP_WLD~~TXT2_WLD
  2344.     };
  2345.  
  2346.     //  Link to Bar Area
  2347.     SET LNK=BDP_WLD[33,190,243,354]@[950,125];
  2348.  
  2349.     // Link to Observation Balcony South
  2350.     //
  2351.     // DEMO: Changed link to the south observation balcony to be a
  2352.     //       "far as you can go" screen.
  2353.     SET ARE=[1617,205,1770,301]%5{
  2354.         RUN COMMAND = STASHWIELD;
  2355.         RUN LNK = BGP_WLD~~TXT2_WLD
  2356.     };
  2357.  
  2358.     //  Link to Observation Balcony North
  2359.     //
  2360.     // DEMO: Changed link to the north observation balcony to be a
  2361.     //       "far as you can go screen"
  2362.     SET ARE=[880,196,1050,283]%5{
  2363.         RUN COMMAND = STASHWIELD;
  2364.         RUN LNK = BGP_WLD~~TXT2_WLD
  2365.     };
  2366.  
  2367.     // DEMO: Removed slot machine number 1.
  2368.     // DEMO: Removed slot machine number 2.
  2369.     // DEMO: Removed uber-poker table number 1.
  2370.     // DEMO: Removed uber-poker table number 2.
  2371.     // DEMO: Removed uber-poker table number 3.
  2372.     // Link to BibbleBonk table - CHIPHANDLER'S
  2373.     SET ARE=BIBBBONK[1378,290,1828,476]%1{
  2374.         SET TXT =Bibblebonk_table COLOR 2 AS TITLE; //%%13323
  2375.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{      //Undid comment out as you should be able to EXAMINE this object-11.20.96-pap
  2376.             RUN SND=$SBARDIR\BAR\OBJ\BGNHEXC1.WAV AS QUEUE *2;
  2377.         };
  2378.         SET BMP=$SBARDIR\GENERAL\MENUS\PLAY.BMP{
  2379.             RUN SND=$SBARDIR\BAR\OBJ\BGNBPYC1.WAV;
  2380.         };
  2381.         IF (BWIELD_WLD CONTAINS CREDITCHIP)
  2382.            SET BMP=$SBARDIR\GENERAL\MENUS\PUTIN.BMP{
  2383.             RUN LNK=BIBBLE;
  2384.         };
  2385.          ENDIF
  2386.     };
  2387.        // Link to BibbleBonk table - BETTAKER'S
  2388.     SET ARE=BIBBBONK[870,292,1203,340]%1{
  2389.         SET TXT =Bibblebonk_table COLOR 2 AS TITLE; //%%13338
  2390.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{      //Undid comment out as you s.b. able to EXAMINE this object-11.20.96-pap
  2391.             RUN SND=$SBARDIR\BAR\OBJ\BGNHEXC1.WAV AS QUEUE *2;
  2392.         };
  2393.         SET BMP=$SBARDIR\GENERAL\MENUS\PLAY.BMP{
  2394.             RUN SND=$SBARDIR\BAR\OBJ\BGNBPYC1.WAV;
  2395.         };
  2396.         IF (BWIELD_WLD CONTAINS CREDITCHIP)
  2397.            SET BMP=$SBARDIR\GENERAL\MENUS\PUTIN.BMP{
  2398.             RUN LNK=BIBBLE;
  2399.         };
  2400.          ENDIF
  2401.     };
  2402.  
  2403.     SET ARE=BIBBBONK[868,341,1147,385]%1{
  2404.         SET TXT =Bibblebonk_table COLOR 2 AS TITLE; //%%13338
  2405.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{    
  2406.             RUN SND=$SBARDIR\BAR\OBJ\BGNHEXC1.WAV AS QUEUE *2;
  2407.         };
  2408.         SET BMP=$SBARDIR\GENERAL\MENUS\PLAY.BMP{
  2409.             RUN SND=$SBARDIR\BAR\OBJ\BGNBPYC1.WAV;
  2410.         };
  2411.         IF (BWIELD_WLD CONTAINS CREDITCHIP)
  2412.            SET BMP=$SBARDIR\GENERAL\MENUS\PUTIN.BMP{
  2413.             RUN LNK=BIBBLE;
  2414.         };
  2415.          ENDIF
  2416.     };
  2417.  
  2418.     // DEMO: Removed Durteen link.
  2419.     // BetTaker
  2420.     SET CHR=$SBARDIR\GENERAL\PANIMS\BGBE1.SMK[1064,246]%2{
  2421.         RUN LNK = BETTAKER_WLD;
  2422.     };
  2423.  
  2424.     // AUDITON AT UBER POKER
  2425.        SET CHR=$SBARDIR\GENERAL\PANIMS\BGNC1.SMK[1374,256];
  2426.     // ARKSH
  2427.     IF (ARK_LOC == 2)
  2428.         SET CHR=$SBARDIR\GENERAL\PANIMS\BGAR2.SMK[1220,244]^GH_ARKSH%2{
  2429.             RUN LNK = CHAR_WLD;
  2430.         };
  2431.     ENDIF
  2432.     // DEMO: Removed message for Arksh event.
  2433.         // ChipHandler
  2434.         SET CHR=$SBARDIR\GENERAL\PANIMS\BGCH1.SMK[1481,236]%2{
  2435.         IF ( BGP_WLD CONTAINS GH_ARKSH )
  2436.             RUN LNK = CHAR_WLD;
  2437.         ELSE
  2438.             RUN LNK = CHIPHANDLER_WLD;
  2439.         ENDIF
  2440.     };
  2441.     // DEMO: Always make the mytosi be at stage 1 (together)
  2442.     SET TNG=$SBARDIR\GENERAL\PANIMS\BGMY1.SMK[168,272];
  2443.     // SRAFFAN LOOKING OUT WINDOW
  2444.         SET TNG=$SBARDIR\GENERAL\PANIMS\BGNC2.SMK[618,262];
  2445. }
  2446.  
  2447. // Bibble Bonk Closeup
  2448. SDEV BIBBLE AS PLAYBIBBLE{
  2449.   SET BKG=$SBARDIR\BAR\CLOSEUP\BGCH\BIBINIT.BMP;
  2450. }
  2451.  
  2452. // Bettaker CIC
  2453. SDEV BETTAKER_WLD AS CIC{
  2454.     SET BKG = $SBARDIR\BAR\CHAR\BETTAKER\BLACK.BMP;
  2455.     SET CHR = $SBARDIR\BAR\CHAR\BETTAKER\BENEUTR1.SMK^BETTMOVIE [80,0] %0;
  2456.      IF (CASINOBETT~~PLAYING == 0)
  2457.         RUN EXPR = CASINOBETT~~VOLUME( 6 );
  2458.         RUN SND = $SBARDIR\BAR\EVENTS\CASINO.WAV^CASINOBETT LOOP 0 AS MIX;
  2459.     ENDIF
  2460.  
  2461.     SET ARE= [270,70,460,330] %1 {
  2462.         SET TXT=Bettaker COLOR 2 SIZE 16 AS TITLE; //%%14878
  2463.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  2464.             RUN SND=$SBARDIR\BAR\CHAR\CHIPHAND\CHOSEX.WAV AS QUEUE *2;
  2465.         };
  2466.         SET BMP=$SBARDIR\GENERAL\MENUS\TOUCH.BMP{
  2467.             SET TXT=$SBARDIR\BAR\CHAR\CHIPHAND\CHOSTC.TXT COLOR 2 AS CAPTION; //%%14883
  2468.         };
  2469.         IF ( BETTAKER_GREET == FALSE )
  2470.             SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
  2471.                 RUN EXPR = BETTMOVIE~~MODAL( 1 );
  2472.                 RUN EXPR = BETTMOVIE~~LOOP( 1 );
  2473.                 RUN COMMAND = FLUSHQUEUE2;
  2474.                 RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEOSGR.SMK;
  2475.                 RUN EXPR = BETTMOVIE~~MODAL( 0 );
  2476.                 RUN EXPR = BETTMOVIE~~LOOP( -1 );
  2477.  
  2478.                 RUN COMMAND = INSERT OBJECT BETTAKER TO LOG_WLD;
  2479.                 RUN COMMAND = INSERT OBJECT BETTAKERZ TO LOGZ_WLD;
  2480.                 IF (VP_STATE == ON AND IJAM_STATE == OFF)
  2481.                     RUN EXPR=BETTAKER~~VP(1);
  2482.                     RUN EXPR=BETTAKERZ~~VP(1);
  2483.                 ENDIF
  2484.  
  2485.                 RUN EXPR = BETTAKER_GREET( TRUE );
  2486.             };
  2487.         ENDIF
  2488.         IF (BETTAKER_GREET == TRUE)
  2489.             SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
  2490.                 SET TXT=Ask_Bettaker_about... COLOR 4 SIZE 16 AS TITLE;
  2491.                 SET TXT=himself COLOR 4 SIZE 16 %1 {
  2492.                     RUN EXPR = BETTMOVIE~~MODAL( 1 );
  2493.                     RUN EXPR = BETTMOVIE~~LOOP( 1 );
  2494.                     RUN COMMAND = FLUSHQUEUE2;
  2495.                     RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEAABE.SMK;
  2496.                     RUN EXPR = BETTMOVIE~~MODAL( 0 );
  2497.                     RUN EXPR = BETTMOVIE~~LOOP( -1 );
  2498.                 };
  2499.                 SET TXT=Chiphandler COLOR 4 SIZE 16 %1 {
  2500.                     RUN EXPR = BETTMOVIE~~MODAL( 1 );
  2501.                     RUN EXPR = BETTMOVIE~~LOOP( 1 );
  2502.                     RUN COMMAND = FLUSHQUEUE2;
  2503.                     RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEAACH.SMK;
  2504.                     RUN EXPR = BETTMOVIE~~MODAL( 0 );
  2505.                     RUN EXPR = BETTMOVIE~~LOOP( -1 );
  2506.                 };
  2507.                 SET TXT=Bibblebonk COLOR 4 SIZE 16 %1 {
  2508.                     RUN EXPR = BETTMOVIE~~MODAL( 1 );
  2509.                     RUN EXPR = BETTMOVIE~~LOOP( 1 );
  2510.                     RUN COMMAND = FLUSHQUEUE2;
  2511.                     RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEAABIBB.SMK;
  2512.                     RUN EXPR = BETTMOVIE~~MODAL( 0 );
  2513.                     RUN EXPR = BETTMOVIE~~LOOP( -1 );
  2514.                 };
  2515.             };
  2516.             SET BMP=$SBARDIR\GENERAL\MENUS\ORDER.BMP{
  2517.                 SET TXT=Order_Bettaker_to... COLOR 4 SIZE 16 AS TITLE; //%%14984
  2518.                 SET TXT=press_my_trousers COLOR 4 SIZE 16 %1 { //%%14985
  2519.                     RUN EXPR = BETTMOVIE~~MODAL( 1 );
  2520.                     RUN EXPR = BETTMOVIE~~LOOP( 1 );
  2521.                     RUN COMMAND = FLUSHQUEUE2;
  2522.                     RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEGODFLT.SMK;
  2523.                     RUN EXPR = BETTMOVIE~~MODAL( 0 );
  2524.                     RUN EXPR = BETTMOVIE~~LOOP( -1 );
  2525.                 };
  2526.                 SET TXT=do_an_impression_of_C3PO COLOR 4 SIZE 16 %1 { //%%14999
  2527.                     RUN EXPR = BETTMOVIE~~MODAL( 1 );
  2528.                     RUN EXPR = BETTMOVIE~~LOOP( 1 );
  2529.                     RUN COMMAND = FLUSHQUEUE2;
  2530.                     RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEGODFLT.SMK;
  2531.                     RUN EXPR = BETTMOVIE~~MODAL( 0 );
  2532.                     RUN EXPR = BETTMOVIE~~LOOP( -1 );
  2533.                 };
  2534.             };
  2535.             SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
  2536.                 RUN EXPR = OPENERDONE( FALSE );
  2537.                 // DEMO: Since Vildroid flashback can't be completed, don't block
  2538.                 //       multiple attempts to enter the flashback.
  2539.                 RUN EXPR=SAVTURNCOUNT(TURNCOUNT);
  2540.                 RUN COMMAND = DEACTIVATEPDA;
  2541.                 RUN COMMAND = STOPPAINT;
  2542.                 RUN MOVIE = $SBARDIR\VILDROID\EVENTS\EVFLASH.SMK[0,0];
  2543.                 RUN LNK = $SBARDIR\WLD\VILDEMO.WLD;
  2544.             };
  2545.         ENDIF
  2546.     };
  2547.     // DEMO: Removed Bettaker's torso hotspot.
  2548. }
  2549. // Chiphandler chat
  2550. SDEV CHIPHANDLER_WLD AS CIC{
  2551.     SET BKG = $SBARDIR\BAR\CHAR\CHIPHAND\BLACK.BMP;
  2552.     SET CHR = $SBARDIR\BAR\CHAR\CHIPHAND\CHNEUTR1.SMK^CHIPMOVIE [80,0] %0;
  2553.  
  2554.     SET ARE= [240,100,430,345] %1 {
  2555.         SET TXT=Chiphandler COLOR 2 SIZE 16 AS TITLE; //%%14694
  2556.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  2557.             RUN SND=$SBARDIR\BAR\CHAR\CHIPHAND\CHOSEX.WAV AS QUEUE *2;
  2558.         };
  2559.         SET BMP=$SBARDIR\GENERAL\MENUS\TOUCH.BMP{
  2560.             SET TXT=$SBARDIR\BAR\CHAR\CHIPHAND\CHOSTC.TXT COLOR 2 AS CAPTION; //%%14699
  2561.         };
  2562.         IF ( CHIPHANDLER_GREET == FALSE )
  2563.             SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
  2564.                 RUN EXPR = CHIPMOVIE~~MODAL( 1 );
  2565.                 RUN EXPR = CHIPMOVIE~~LOOP( 1 );
  2566.                 RUN COMMAND = FLUSHQUEUE2;
  2567.                 RUN MOVIE=$SBARDIR\BAR\CHAR\CHIPHAND\CHOSGR.SMK;
  2568.                 RUN EXPR = CHIPMOVIE~~MODAL( 0 );
  2569.                 RUN EXPR = CHIPMOVIE~~LOOP( -1 );
  2570.  
  2571.                 RUN COMMAND = INSERT OBJECT CHIPHANDLER TO LOG_WLD;
  2572.                 RUN COMMAND = INSERT OBJECT CHIPHANDLERZ TO LOGZ_WLD;
  2573.                 IF (VP_STATE == ON AND IJAM_STATE == OFF)
  2574.                     RUN EXPR=CHIPHANDLER~~VP(1);
  2575.                     RUN EXPR=CHIPHANDLERZ~~VP(1);
  2576.                 ENDIF
  2577.  
  2578.                 RUN EXPR = CHIPHANDLER_GREET( TRUE );
  2579.             };
  2580.         ENDIF 
  2581.         IF ( CHIPHANDLER_GREET == TRUE )
  2582.             SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
  2583.                 SET TXT=Ask_Chiphandler_about... COLOR 4 SIZE 16 AS TITLE; //%%14721
  2584.                 // DEMO: Removed ask about himself interaction.
  2585.                 SET TXT=myself COLOR 4 SIZE 16 %1 { //%%14725
  2586.                     RUN EXPR = CHIPMOVIE~~MODAL( 1 );
  2587.                     RUN EXPR = CHIPMOVIE~~LOOP( 1 );
  2588.                     RUN COMMAND = FLUSHQUEUE2;
  2589.                     RUN MOVIE=$SBARDIR\BAR\CHAR\CHIPHAND\CHAAAN.SMK;
  2590.                     RUN EXPR = CHIPMOVIE~~MODAL( 0 );
  2591.                     RUN EXPR = CHIPMOVIE~~LOOP( -1 );
  2592.                 };
  2593.                 // DEMO: Removed ask about gorb interaction.
  2594.                 // DEMO: Removed ask about bettaker interaction.
  2595.                 // DEMO: Removed ask about arksh interaction.
  2596.                 // DEMO: Removed ask about bibblebonk interaction.
  2597.                 // DEMO: Removed ask about the slot machine interaction.
  2598.                 // DEMO: Removed ask about datacart interaction.
  2599.             };
  2600.             // DEMO: Removed order interaction.
  2601.             SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
  2602.                 RUN EXPR = OPENERDONE( FALSE );
  2603.                 RUN COMMAND = STASHWIELD;
  2604.                 RUN LNK = CHIPCHAT_WLD;
  2605.             };
  2606.         ENDIF
  2607.     };
  2608.     // DEMO: Removed Chiphandler's torso hotspot.
  2609. }
  2610.  
  2611. SDEV CHIPCHAT_WLD AS CHAT {
  2612.     SET BKG = $SBARDIR\BAR\CHAR\CHIPHAND\BLACK.BMP;
  2613.     SET CHR = $SBARDIR\BAR\CHAR\CHIPHAND\CHNEUTR1.SMK^CHCHMOVIE [80,10];
  2614.     // Exit on Left Edge
  2615.     SET AREA=[0,0,80,370]%10{
  2616.         // DEMO: Pull the finish lines from the Salivraster asset area.
  2617.         RUN EXPR = FINISHCHOICE( RANDOM % 5 );
  2618.         IF (FINISHCHOICE == 0)
  2619.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH1.WAV AS WAITMIX;
  2620.         ENDIF
  2621.         IF (FINISHCHOICE == 1)
  2622.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH2.WAV AS WAITMIX;
  2623.         ENDIF
  2624.         IF (FINISHCHOICE == 2)
  2625.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH3.WAV AS WAITMIX;
  2626.         ENDIF
  2627.         IF (FINISHCHOICE == 3)
  2628.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH4.WAV AS WAITMIX;
  2629.         ENDIF
  2630.         IF (FINISHCHOICE == 4)
  2631.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH5.WAV AS WAITMIX;
  2632.         ENDIF
  2633.         RUN COMMAND = CLOSE;
  2634.     };
  2635.  
  2636.     IF (OPENERDONE == FALSE)
  2637.         RUN MOVIE = $SBARDIR\BAR\CHAR\CHIPHAND\CHCHOP.SMK;
  2638.         RUN EXPR = CHCHMOVIE~~MODAL( 0 );
  2639.         RUN EXPR = CHCHMOVIE~~LOOP( -1 );
  2640.         RUN COMMAND = INSERT OBJECT CHCH1L1A TO CHIPCHAT_WLD;
  2641.         RUN COMMAND = INSERT OBJECT CHCH1L1B TO CHIPCHAT_WLD;
  2642.         RUN COMMAND = INSERT OBJECT CHCH1L1C TO CHIPCHAT_WLD;
  2643.         RUN COMMAND = INSERT OBJECT CHCH1L1D TO CHIPCHAT_WLD;
  2644.         RUN EXPR = OPENERDONE( TRUE );
  2645.     ENDIF
  2646.     IF (OPENERDONE == TRUE)
  2647.         SET TXT =Inquire_about_patrons [80,370,400,385] COLOR 7 AS TITLE %1 ^CHCH1L1A { //%%14838
  2648.             RUN COMMAND = REMOVE OBJECT CHCH1L1A FROM CHIPCHAT_WLD;
  2649.             RUN EXPR = CHCHMOVIE~~MODAL( 1 );
  2650.             RUN EXPR = CHCHMOVIE~~LOOP( 1 );
  2651.             RUN MOVIE = $SBARDIR\BAR\CHAR\CHIPHAND\CHCH1L1A.SMK;
  2652.             RUN EXPR = CHCHMOVIE~~MODAL( 0 );
  2653.             RUN EXPR = CHCHMOVIE~~LOOP( -1 );
  2654.         };
  2655.         SET TXT =Inquire_about_observations [80,390,400,405] COLOR 7 AS TITLE %1 ^CHCH1L1B { //%%14846
  2656.             RUN COMMAND = REMOVE OBJECT CHCH1L1B FROM CHIPCHAT_WLD;
  2657.             RUN EXPR = CHCHMOVIE~~MODAL( 1 );
  2658.             RUN EXPR = CHCHMOVIE~~LOOP( 1 );
  2659.             RUN MOVIE = $SBARDIR\BAR\CHAR\CHIPHAND\CHCH1L1B.SMK;
  2660.             RUN EXPR = CHCHMOVIE~~MODAL( 0 );
  2661.             RUN EXPR = CHCHMOVIE~~LOOP( -1 );
  2662.         };
  2663.         SET TXT =Inquire_about_employees [80,410,400,425] COLOR 7 AS TITLE %1 ^CHCH1L1C { //%%14854
  2664.             RUN COMMAND = REMOVE OBJECT CHCH1L1C FROM CHIPCHAT_WLD;
  2665.             RUN EXPR = CHCHMOVIE~~MODAL( 1 );
  2666.             RUN EXPR = CHCHMOVIE~~LOOP( 1 );
  2667.             RUN MOVIE = $SBARDIR\BAR\CHAR\CHIPHAND\CHCH1L1C.SMK;
  2668.             RUN EXPR = CHCHMOVIE~~MODAL( 0 );
  2669.             RUN EXPR = CHCHMOVIE~~LOOP( -1 );
  2670.         };
  2671.         SET TXT =Finished [80,430,400,445] COLOR 7 AS TITLE %1 ^CHCH1L1D { //%%14862
  2672.             RUN COMMAND = REMOVE OBJECT CHCH1L1D FROM CHIPCHAT_WLD;
  2673.             RUN COMMAND = PAINT;
  2674.             RUN SND = $SBARDIR\BAR\CHAR\CHIPHAND\CHCH1L1D.WAV AS WAITMIX;
  2675.             RUN COMMAND = CLOSE;
  2676.         };
  2677.     ENDIF
  2678. }
  2679. // End Chiphandler Chat
  2680.  
  2681. // Soldier CIC
  2682. SDEV SOLDIER_WLD AS CIC{
  2683.     SET BKG = $SBARDIR\BAR\CHAR\SOLDIER\BLACK.BMP;
  2684.     SET CHR = $SBARDIR\BAR\CHAR\SOLDIER\SONEUTR2.SMK^SOLDMOVIE [80,0] %0;
  2685.  
  2686.     // Mister Drinkmaster 2000
  2687.     SET ARE=BDNP[80,82,247,216]%1{
  2688.         SET TXT = Mister_DrinkMaster_2000 COLOR 2 AS TITLE; //%%9860
  2689.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  2690.             RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNPEXC1.WAV AS QUEUE *2;
  2691.         };
  2692.         SET BMP=$SBARDIR\GENERAL\MENUS\TURNON.BMP{
  2693.             SET TXT=$SBARDIR\BAR\CHAR\SOLDIER\BDNPTNC1.TXT COLOR 2 AS CAPTION; //%%9865
  2694.         };
  2695.         SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
  2696.             RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\BDNPOPC1.SMK;
  2697.         };
  2698.         SET BMP=$SBARDIR\GENERAL\MENUS\SEARCH.BMP{
  2699.             RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNPSRC1.WAV AS QUEUE *2;
  2700.         };
  2701.     };
  2702.     // DEMO: Removed link to brooch as you can't complete the zzazzl flashback
  2703.     // DEMO:   in the demo.
  2704.     SET BMP = $SBARDIR\BAR\CHAR\SOLDIER\BDNE0.BMP[118,11]%1{
  2705.         SET TXT = brooch COLOR 2 AS TITLE; //%%9880
  2706.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  2707.             RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNEEXC1.WAV AS QUEUE *2;
  2708.             RUN EXPR = EXAMINE_BROOCH( TRUE ); 
  2709.         };
  2710.         SET    BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
  2711.             RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNEOPC1.WAV AS QUEUE *2;
  2712.             RUN EXPR = EXAMINE_BROOCH( TRUE ); 
  2713.         };
  2714.         SET    BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  2715.             RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNETAC1.WAV AS QUEUE *2;
  2716.             RUN EXPR = EXAMINE_BROOCH( TRUE );
  2717.         };
  2718.     };
  2719.     SET ARE= [245,110,385,340] %1 {
  2720.         SET TXT=Soldier_714-Z-367 COLOR 2 SIZE 16 AS TITLE; //%%9896
  2721.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  2722.             RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\SOOSEX.WAV AS QUEUE *2;
  2723.         };
  2724.         IF (SOLDIER_GREET == FALSE)
  2725.              SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
  2726.                 RUN EXPR = SOLDMOVIE~~MODAL( 1 );
  2727.                 RUN EXPR = SOLDMOVIE~~LOOP( 1 );
  2728.                 RUN COMMAND = FLUSHQUEUE2;
  2729.                 RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOOSGR.SMK;
  2730.                 RUN EXPR = SOLDMOVIE~~MODAL( 0 );
  2731.                 RUN EXPR = SOLDMOVIE~~LOOP( -1 );
  2732.  
  2733.                 RUN COMMAND = INSERT OBJECT SOLDIER TO LOG_WLD;
  2734.                 RUN COMMAND = INSERT OBJECT SOLDIERZ TO LOGZ_WLD;
  2735.                 RUN EXPR=SOLDIER~~ROOM(4);
  2736.                 RUN EXPR=SOLDIERZ~~ROOM(4);
  2737.                 // DEMO: Removed voiceprinter and infrared jammer code.
  2738.                 RUN EXPR=SOLDIER_GREET(TRUE);
  2739.             };
  2740.         ENDIF
  2741.         IF (SOLDIER_GREET == TRUE)
  2742.             SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
  2743.                 SET TXT = Ask_Soldier_714-Z-367_about... COLOR 4 SIZE 16 AS TITLE; //%%9908
  2744.                 // DEMO: Removed ask about himself interaction.
  2745.                 SET TXT=myself COLOR 4 SIZE 16 %1 { //%%9916
  2746.                     RUN EXPR = SOLDMOVIE~~MODAL( 1 );
  2747.                     RUN EXPR = SOLDMOVIE~~LOOP( 1 );
  2748.                     RUN COMMAND = FLUSHQUEUE2;
  2749.                     RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAAAN.SMK;
  2750.                     RUN EXPR = SOLDMOVIE~~MODAL( 0 );
  2751.                     RUN EXPR = SOLDMOVIE~~LOOP( -1 );
  2752.                 };
  2753.                 // DEMO: Removed ask about gorb interaction.
  2754.                 // DEMO: Removed ask about the mytosi interaction.
  2755.                 IF (THUD_GREET == TRUE)
  2756.                     SET TXT=Thud COLOR 4 SIZE 16 %1 { //%%9942
  2757.                         RUN EXPR = SOLDMOVIE~~MODAL( 1 );
  2758.                         RUN EXPR = SOLDMOVIE~~LOOP( 1 );
  2759.                         RUN COMMAND = FLUSHQUEUE2;
  2760.                         RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAATB.SMK;
  2761.                         RUN EXPR = SOLDMOVIE~~MODAL( 0 );
  2762.                         RUN EXPR = SOLDMOVIE~~LOOP( -1 );
  2763.                     };
  2764.                 ENDIF
  2765.                 IF (FLEEB_GREET == TRUE)
  2766.                     SET TXT=Fleebix COLOR 4 SIZE 16 %1 { //%%9942
  2767.                         RUN EXPR = SOLDMOVIE~~MODAL( 1 );
  2768.                         RUN EXPR = SOLDMOVIE~~LOOP( 1 );
  2769.                         RUN COMMAND = FLUSHQUEUE2;
  2770.                         RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAAFB.SMK;
  2771.                         RUN EXPR = SOLDMOVIE~~MODAL( 0 );
  2772.                         RUN EXPR = SOLDMOVIE~~LOOP( -1 );
  2773.                     };
  2774.                 ENDIF
  2775.                 IF (EXAMINE_BROOCH == TRUE)
  2776.                     SET TXT=brooch COLOR 4 SIZE 16 %1 { //%%10000
  2777.                         RUN EXPR = SOLDMOVIE~~MODAL( 1 );
  2778.                         RUN EXPR = SOLDMOVIE~~LOOP( 1 );
  2779.                         RUN COMMAND = FLUSHQUEUE2;
  2780.                         RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAABDNE.SMK;
  2781.                         RUN EXPR = SOLDMOVIE~~MODAL( 0 );
  2782.                         RUN EXPR = SOLDMOVIE~~LOOP( -1 );
  2783.                     };
  2784.                 ENDIF
  2785.                 // DEMO: Removed ask about brooch interaction.
  2786.                 IF (HAVEDRINK == TRUE)
  2787.                     SET TXT=my_drink COLOR 4 SIZE 16 %1 { //%%10018
  2788.                         RUN EXPR = SOLDMOVIE~~MODAL( 1 );
  2789.                         RUN EXPR = SOLDMOVIE~~LOOP( 1 );
  2790.                         RUN COMMAND = FLUSHQUEUE2;
  2791.                         RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAABDTO.SMK;
  2792.                         RUN EXPR = SOLDMOVIE~~MODAL( 0 );
  2793.                         RUN EXPR = SOLDMOVIE~~LOOP( -1 );
  2794.                     };
  2795.                 ENDIF
  2796.             };
  2797.             SET BMP=$SBARDIR\GENERAL\MENUS\ORDER.BMP{
  2798.                 SET TXT = Order_Soldier_714-Z-367_to... COLOR 4 SIZE 16 AS TITLE; //%%10028
  2799.                 IF ( EXAMINE_BROOCH == TRUE )
  2800.                     SET TXT=open_the_brooch COLOR 4 SIZE 16 %1 { //%%10030
  2801.                         SET TXT=$SBARDIR\BAR\CHAR\SOLDIER\SOOPBDNE.TXT COLOR 2 AS CAPTION; //%%10031
  2802.                     };
  2803.                 ENDIF
  2804.                 IF (NEVER_REQUESTED_A_DRINK == TRUE)
  2805.                     SET TXT=give_me_a_drink COLOR 4 SIZE 16 %1 { //%%10034
  2806.                         IF (HAVEDRINK == FALSE)
  2807.                             RUN EXPR = SOLDMOVIE~~MODAL( 1 );
  2808.                             RUN EXPR = SOLDMOVIE~~LOOP( 1 );
  2809.                             RUN COMMAND = FLUSHQUEUE2;
  2810.                                RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOGBDTO1.SMK;
  2811.                             RUN EXPR = SOLDMOVIE~~MODAL( 0 );
  2812.                             RUN EXPR = SOLDMOVIE~~LOOP( -1 );
  2813.                             RUN EXPR = REQUESTEDDRINK(TRUE);
  2814.                             // DEMO: Insert the drink into the wield.
  2815.                             RUN COMMAND=INSERT OBJECT DRINK3 TO BWIELD_WLD;
  2816.                             // DEMO: Removed the else part of the if - can't order more
  2817.                             //       than one drink.
  2818.                         ENDIF
  2819.                         // DEMO: We've modified how interactions for the drink works.  To address
  2820.                         //       scripting issues, we record that the drink has been delivered here.
  2821.                         IF (REQUESTEDDRINK == TRUE)
  2822.                             RUN EXPR = HAVEDRINK(TRUE);
  2823.                             RUN EXPR = NEVER_REQUESTED_A_DRINK(FALSE);
  2824.                         ENDIF
  2825.                     };
  2826.                 ENDIF
  2827.                 SET TXT=lead_me_to_the_hidden_cellar COLOR 4 SIZE 16 %1 { //%%10049
  2828.                     RUN EXPR = SOLDMOVIE~~MODAL( 1 );
  2829.                     RUN EXPR = SOLDMOVIE~~LOOP( 1 );
  2830.                     RUN COMMAND = FLUSHQUEUE2;
  2831.                        RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOGODFLT.SMK;
  2832.                     RUN EXPR = SOLDMOVIE~~MODAL( 0 );
  2833.                     RUN EXPR = SOLDMOVIE~~LOOP( -1 );
  2834.                 };
  2835.             };
  2836.             SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
  2837.                 RUN EXPR = OPENERDONE( FALSE );
  2838.                 RUN EXPR = LEVEL( 0 );
  2839.                 IF (SOLDIER_MET==0)
  2840.                     RUN EXPR=SOLDIER_MET(1);
  2841.                 ENDIF
  2842.                 RUN EXPR=SAVTURNCOUNT(TURNCOUNT);
  2843.                 RUN LNK = $SBARDIR\WLD\ZZADEMO.WLD;
  2844.                 // DEMO: Demo removed support to block reentry to the Zzazzl flashback.
  2845.             };
  2846.         ENDIF
  2847.     };
  2848.     // DEMO: Removed your_drink - BDTO3.BMP^DRINK3 - bar 01-22-97
  2849. }
  2850.  
  2851. // Fleebix & Thud CIC
  2852. SDEV FLEETHUD_WLD AS CIC{
  2853.     SET BKG=$SBARDIR\BAR\CHAR\THUD\BLACK.BMP;
  2854.     SET CHR = $SBARDIR\BAR\CHAR\THUD\TBNEUTR1.SMK^FBTHMOVIE [80,0] %0;
  2855.     // DEMO: Remove Thud's hide loop.
  2856.  
  2857.     // DEMO: Removed support to make thud hide.
  2858.     SET ARE= [150,155,250,310]^FLEEBIX %1 {
  2859.         SET TXT=Fleebix COLOR 2 SIZE 16 AS TITLE; //%%9030
  2860.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  2861.             RUN SND=$SBARDIR\BAR\CHAR\FLEEBIX\FBOSEX.WAV AS QUEUE *2;
  2862.         };
  2863.         SET BMP=$SBARDIR\GENERAL\MENUS\SMELL.BMP{
  2864.             RUN SND=$SBARDIR\BAR\CHAR\FLEEBIX\FBOSSM.WAV AS QUEUE *2;
  2865.         };
  2866.  
  2867.         IF (FLEEB_GREET == FALSE )
  2868.             SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
  2869.                 RUN EXPR = FBTHMOVIE~~MODAL( 1 );
  2870.                 RUN EXPR = FBTHMOVIE~~LOOP( 1 );
  2871.                 RUN COMMAND = FLUSHQUEUE2;
  2872.                 RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBOSGR.SMK;
  2873.                 RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2874.                 RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2875.                 RUN COMMAND = INSERT OBJECT FLEEBIX TO LOG_WLD;
  2876.                 RUN COMMAND = INSERT OBJECT FLEEBIXZ TO LOGZ_WLD;
  2877.                 // DEMO: Removed voiceprinter and ir jammer support.
  2878.                 RUN EXPR = THUDLAST( FALSE );
  2879.                 RUN EXPR = FLEEB_GREET( TRUE );
  2880.             };
  2881.         ELSE
  2882.             SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
  2883.                 SET TXT=Ask_Fleebix_about... COLOR 4 SIZE 16 AS TITLE; //%%9071
  2884.                 SET TXT=myself COLOR 4 SIZE 16 %1 { //%%9091
  2885.                     // DEMO: Removed Thud hiding support from Fleebix chat.
  2886.                     RUN EXPR = FBTHMOVIE~~MODAL( 1 );
  2887.                     RUN EXPR = FBTHMOVIE~~LOOP( 1 );
  2888.                     RUN COMMAND = FLUSHQUEUE2;
  2889.                     RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBAAAN.SMK;
  2890.                     RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2891.                     RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2892.                     RUN EXPR = THUDLAST( FALSE );
  2893.                 };
  2894.                 IF (THUD_GREET == TRUE)
  2895.                     SET TXT=Thud COLOR 4 SIZE 16 %1 { //%%9111
  2896.                         // DEMO: Removed Thud hiding support from Fleebix chat.
  2897.                         RUN EXPR = FBTHMOVIE~~MODAL( 1 );
  2898.                         RUN EXPR = FBTHMOVIE~~LOOP( 1 );
  2899.                         RUN COMMAND = FLUSHQUEUE2;
  2900.                         RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBAATB.SMK;
  2901.                         RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2902.                         RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2903.                         RUN EXPR = THUDLAST( FALSE );
  2904.                     };
  2905.                 ENDIF
  2906.                 SET TXT = Yzore [80,390,400,405] COLOR 4 SIZE 16 %1 { //%%2518
  2907.                     RUN EXPR = FLEEMOVIE~~MODAL( 1 );
  2908.                     RUN EXPR = FLEEMOVIE~~LOOP( 1 );
  2909.                     RUN COMMAND = FLUSHQUEUE2;
  2910.                     RUN MOVIE = $SBARDIR\NEBLITZ\CHAR\FLEEBIX\FBCH1L3B.SMK;
  2911.                     RUN EXPR = FLEEMOVIE~~MODAL( 0 );
  2912.                     RUN EXPR = FLEEMOVIE~~LOOP( -1 );
  2913.                 };
  2914.             };
  2915.             // DEMO: Just get nasty response from Fleeb
  2916.             SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
  2917.                 RUN EXPR = FBTHMOVIE~~MODAL( 1 );
  2918.                 RUN EXPR = FBTHMOVIE~~LOOP( 1 );
  2919.                 RUN COMMAND = FLUSHQUEUE2;
  2920.                 RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBCH4OP.SMK;
  2921.                 RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2922.                 RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2923.                 RUN EXPR = THUDLAST( FALSE );
  2924.             };
  2925.         ENDIF
  2926.     };
  2927.  
  2928.     SET ARE= [350,135,545,359] %1 {
  2929.         SET TXT=Thud COLOR 2 SIZE 16 AS TITLE; //%%9528
  2930.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  2931.             RUN SND=$SBARDIR\BAR\CHAR\THUD\TBOSEX.WAV AS QUEUE *2;
  2932.         };
  2933.         SET BMP=$SBARDIR\GENERAL\MENUS\KISS.BMP{
  2934.             RUN SND=$SBARDIR\BAR\CHAR\THUD\TBOSKS.WAV AS QUEUE *2;
  2935.         };
  2936.         SET BMP=$SBARDIR\GENERAL\MENUS\SMELL.BMP{
  2937.             RUN SND=$SBARDIR\BAR\CHAR\THUD\TBOSSM.WAV AS QUEUE *2;
  2938.         };
  2939.         IF (THUD_GREET == FALSE)
  2940.             SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
  2941.                 RUN EXPR = FBTHMOVIE~~MODAL( 1 );
  2942.                 RUN EXPR = FBTHMOVIE~~LOOP( 1 );
  2943.                 RUN COMMAND = FLUSHQUEUE2;
  2944.                 RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBOSGR.SMK;
  2945.                 RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2946.                 RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2947.                 
  2948.                 RUN COMMAND = INSERT OBJECT THUD TO LOG_WLD;
  2949.                 RUN COMMAND = INSERT OBJECT THUDZ TO LOGZ_WLD;
  2950.                 // DEMO: Removed voiceprinter and ir jammer support.
  2951.                 RUN EXPR = THUDLAST( TRUE );
  2952.                 RUN EXPR = THUD_GREET( TRUE );
  2953.             };
  2954.         ELSE
  2955.             // DEMO: Removed playwith thud interaction because it kills you.
  2956.             // DEMO: Removed search interaction
  2957.             SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
  2958.                 SET TXT=Ask_Thud_about... COLOR 4 SIZE 16 AS TITLE; //%%9581
  2959.                 SET TXT=himself COLOR 4 SIZE 16 %1 { //%%9582
  2960.                     RUN EXPR = FBTHMOVIE~~MODAL( 1 );
  2961.                     RUN EXPR = FBTHMOVIE~~LOOP( 1 );
  2962.                     RUN COMMAND = FLUSHQUEUE2;
  2963.                     RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBAATB.SMK;
  2964.                     RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2965.                     RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2966.                     RUN EXPR = THUDLAST( TRUE );
  2967.                 };
  2968.                 SET TXT=myself COLOR 4 SIZE 16 %1 { //%%9590
  2969.                     RUN EXPR = FBTHMOVIE~~MODAL( 1 );
  2970.                     RUN EXPR = FBTHMOVIE~~LOOP( 1 );
  2971.                     RUN COMMAND = FLUSHQUEUE2;
  2972.                     RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBAAAN.SMK;
  2973.                     RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2974.                     RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2975.                     RUN EXPR = THUDLAST( TRUE );
  2976.                 };
  2977.                 IF (FLEEB_GREET == TRUE)
  2978.                     SET TXT=Fleebix COLOR 4 SIZE 16 %1 { //%%9599
  2979.                         RUN EXPR = FBTHMOVIE~~MODAL( 1 );
  2980.                         RUN EXPR = FBTHMOVIE~~LOOP( 1 );
  2981.                         RUN COMMAND = FLUSHQUEUE2;
  2982.                         RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBAAFB.SMK;
  2983.                         RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2984.                         RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2985.                         RUN EXPR = THUDLAST( TRUE );
  2986.                     };
  2987.                 ENDIF
  2988.                 SET TXT=Bibblebonk COLOR 4 SIZE 16 %1 { //%%9590
  2989.                     RUN EXPR = FBTHMOVIE~~MODAL( 1 );
  2990.                     RUN EXPR = FBTHMOVIE~~LOOP( 1 );
  2991.                     RUN COMMAND = FLUSHQUEUE2;
  2992.                     RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBAADFLT.SMK;
  2993.                     RUN EXPR = FBTHMOVIE~~MODAL( 0 );
  2994.                     RUN EXPR = FBTHMOVIE~~LOOP( -1 );
  2995.                     RUN EXPR = THUDLAST( TRUE );
  2996.                 };
  2997.             };
  2998.             // DEMO: Removed Order Thud to interaction
  2999.             SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
  3000.                 RUN EXPR = THUDLAST( TRUE );
  3001.                 RUN EXPR = OPENERDONE( FALSE );
  3002.                 // DEMO: Always allow entry to the salivraster flashback.
  3003.                 RUN EXPR=SAVTURNCOUNT(TURNCOUNT);
  3004.                 RUN LNK = $SBARDIR\WLD\SALDEMO.WLD;
  3005.             };
  3006.         ENDIF
  3007.     };
  3008. }
  3009. // End Fleebix & Thud CIC
  3010. // DEMO: Removed mydw_wld
  3011.  
  3012. // READ THE PANEL UNDER THE MONITORS CLOSEUP
  3013. SDEV BACG_WLD AS CLOSEUP{
  3014.     SET BKG=$SBARDIR\BAR\CLOSEUP\BACG\BACG.BMP;
  3015.     // This is a looping background sound that stops on exit
  3016.     RUN EXPR = ENTRYBACG~~VOLUME( 5 );
  3017.     RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBACG LOOP 0 AS MIX SOUNDOVEROK;
  3018.     // CURSOR FIX
  3019.     SET ARE=NOTHING[0,0,480,360];
  3020. }
  3021.  
  3022. SDEV BPDA_WLD AS PDA{
  3023.     SET BKG=$SBARDIR\BAR\PDA\BPDA.BMP;
  3024.     SET ARE=DEACTIVE[0,0,514,238]{
  3025.         RUN COMMAND = DEACTIVATEPDA;
  3026.     };
  3027.     SET BUT=$SBARDIR\BAR\PDA\BMAP.BMP[123,188]+1^100;
  3028.     SET BUT=$SBARDIR\BAR\PDA\BSTASH.BMP[165,188]+1^101;
  3029.     // DEMO: zoomlite is unnecessary - bar 01-27-97
  3030. //    SET BUT=$SBARDIR\BAR\PDA\ZOOMLITE.BMP[208,187]+2^ZOOMFLASH FRAMERATE 4;
  3031.     SET BUT=$SBARDIR\BAR\PDA\BZOOM.BMP[208,187]+2^102
  3032.     {
  3033.         RUN EXPR=PDAZOOMED(TRUE); 
  3034.         RUN LNK=BPDAZ_WLD;
  3035.     };
  3036.     SET BUT=$SBARDIR\BAR\PDA\BSYSTEM.BMP[262,188]+1^113 {
  3037.         SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
  3038.     };
  3039.     SET BUT=$SBARDIR\BAR\PDA\BLOG.BMP[304,188]+1^104;
  3040.     SET CHR=$SBARDIR\BAR\PDA\BWAND.SMK^WANDANIM LOOP 0[41,8];
  3041.     SET BUT=$SBARDIR\BAR\PDA\BBLINK.BMP[361,133]^110^MSGLIGHT+2{
  3042.         RUN EXPR=ZELDA_REM(6666);
  3043.     }
  3044.     SET TIME=$SBARDIR\BAR\PDA\BTIME.BMP[410,140]^CLOCK+11 VALUE TURNCOUNT;
  3045.     IF (BARLOC == BAP)
  3046.         SET SPR=$SBARDIR\BAR\MAP\NAMES\BA.BMP[377,82];        
  3047.     ENDIF
  3048.     IF (BARLOC == BDP)
  3049.         SET SPR=$SBARDIR\BAR\MAP\NAMES\BD.BMP[377,82];        
  3050.     ENDIF
  3051.     IF (BARLOC == BGP)
  3052.         SET SPR=$SBARDIR\BAR\MAP\NAMES\BG.BMP[377,82];
  3053.     ENDIF
  3054. }
  3055.  
  3056. // ZOOM PDA
  3057. SDEV BPDAZ_WLD AS ZOOMPDA{
  3058.     SET BKG=$SBARDIR\BAR\PDA\BPDAZ.BMP;
  3059.     SET BUT=$SBARDIR\BAR\PDA\BMAPZ.BMP[45,380]+1^100%1;
  3060.     SET BUT=$SBARDIR\BAR\PDA\BSTASHZ.BMP[154,380]+1^101%1;
  3061.     SET BUT=$SBARDIR\BAR\PDA\BZOOMZ.BMP[266,380]+1^102%1
  3062.     {
  3063.         RUN EXPR=PDAZOOMED(FALSE); 
  3064.         RUN COMMAND=CLOSE;
  3065.     };
  3066.     SET BUT=$SBARDIR\BAR\PDA\BSYSTEMZ.BMP[389,380]+1^113%1 {
  3067.         SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
  3068.     };
  3069.     SET BUT=$SBARDIR\BAR\PDA\BLOGZ.BMP[495,380]+1^104%1;
  3070. }
  3071.  
  3072. SDEV MAP_WLD AS BMP RECT [116, 61, 350, 172]{
  3073.     SET BKG=$SBARDIR\BAR\MAP\BARMAP.BMP;
  3074.     // THE YOU ICON
  3075.     IF (BARLOC == BAP)
  3076.         SET SPR=$SBARDIR\BAR\MAP\YOU.BMP[66,89]+2;
  3077.     ENDIF
  3078.     IF (BARLOC == BDP)
  3079.         SET SPR=$SBARDIR\BAR\MAP\YOU.BMP[57,52]+2;
  3080.     ENDIF
  3081.     IF (BARLOC == BGP)
  3082.         SET SPR=$SBARDIR\BAR\MAP\YOU.BMP[69,41]+2;
  3083.     ENDIF
  3084. }
  3085.  
  3086. SDEV INV_WLD AS INVWLD RECT [116, 61, 350, 172]{
  3087.     SET BKG=$SBARDIR\BAR\INV\INVBACK.BMP;
  3088.     // HIGH FREQUENCY JAMMMER
  3089.     // DEMO: Changed the HFJAMMER from a hold bmp to a set bmp
  3090.     SET BMP=$SBARDIR\BAR\INV\BZTG.BMP^HFJAMMER{
  3091.         SET TXT = high-frequency_jammer COLOR 2 AS TITLE; //%%2860
  3092.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3093.             RUN COMMAND = FLUSHQUEUE2;
  3094.             RUN MOVIE=$SBARDIR\BAR\OBJ\BZTG.SMK AS EXAMINE SND=$SBARDIR\BAR\OBJ\BZTGEXC1.WAV;
  3095.         };
  3096.         IF NOT ($CURRENT_SDEV == BZTGRDC1_WLD OR $CURRENT_SDEV == BZTG_WLD)
  3097.             SET BMP=$SBARDIR\GENERAL\MENUS\READ.BMP{
  3098.                 RUN LNK = BZTGRDC1_WLD;
  3099.             };
  3100.             SET BMP=$SBARDIR\GENERAL\MENUS\SET.BMP{
  3101.                 RUN LNK=BZTG_WLD;
  3102.             };
  3103.         ENDIF
  3104.         SET BMP=$SBARDIR\GENERAL\MENUS\WEAR.BMP{
  3105.             RUN SND=$SBARDIR\BAR\OBJ\BZTGWEC1.WAV AS QUEUE *2;
  3106.         };
  3107.         IF ( HFJAM_STATE == OFF )
  3108.             SET BMP=$SBARDIR\GENERAL\MENUS\ON.BMP{
  3109.                 RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
  3110.                 RUN EXPR=HFJAM_STATE(ON);
  3111.             };
  3112.         ELSE
  3113.             SET BMP=$SBARDIR\GENERAL\MENUS\OFF.BMP{
  3114.                 RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
  3115.                 RUN EXPR=HFJAM_STATE(OFF);
  3116.             };
  3117.          ENDIF
  3118.         SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  3119.             RUN COMMAND=TRANSFER OBJECT HFJAMMER FROM INV_WLD TO BWIELD_WLD;
  3120.         };
  3121.     };
  3122.     // CREDIT CHIP
  3123.     SET BMP=$SBARDIR\BAR\INV\BZTA.BMP^CREDITCHIP{
  3124.         SET TXT = credit_chip COLOR 2 AS TITLE; //%%2905
  3125.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3126.             RUN MOVIE=$SBARDIR\BAR\OBJ\BZTA.SMK AS EXAMINE;
  3127.         };
  3128.         // Check credit balance
  3129.         SET BMP=$SBARDIR\GENERAL\MENUS\CHECK.BMP{
  3130.             IF (NUGGETS > 30000)
  3131.                 RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC1.WAV;
  3132.             ELSE
  3133.                 IF (NUGGETS > 10000)
  3134.                     RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC2.WAV;
  3135.                 ELSE
  3136.                     IF (NUGGETS > 500)
  3137.                         RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC3.WAV;
  3138.                     ELSE
  3139.                         IF (NUGGETS > 50)
  3140.                             RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC4.WAV;
  3141.                         ELSE
  3142.                             IF (NUGGETS > 0)
  3143.                                 RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC5.WAV;
  3144.                             ELSE
  3145.                                 RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC6.WAV;
  3146.                             ENDIF
  3147.                         ENDIF
  3148.                     ENDIF
  3149.                 ENDIF
  3150.             ENDIF
  3151.             RUN TXT=$SBARDIR\BAR\OBJ\CREDITS.TXT VAR NUGGETS COLOR 2 AS CAPTION;
  3152.         };
  3153.         SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  3154.             RUN COMMAND=TRANSFER OBJECT CREDITCHIP FROM INV_WLD TO BWIELD_WLD;
  3155.         };
  3156.         // DEMO: Removed residue printer support.
  3157.     };
  3158.     // DATACART
  3159.     SET BMP=$SBARDIR\BAR\INV\BZTD.BMP^DATACART{
  3160.         SET TXT = datacart COLOR 2 AS TITLE; //%%2950
  3161.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3162.             RUN COMMAND = FLUSHQUEUE2;
  3163.             RUN MOVIE=$SBARDIR\BAR\OBJ\BZTD.SMK AS EXAMINE SND=$SBARDIR\BAR\CLOSEUP\BACF\BZTDEXC1.WAV;
  3164.         };
  3165.         SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  3166.             RUN COMMAND=TRANSFER OBJECT DATACART FROM INV_WLD TO BWIELD_WLD;
  3167.             RUN EXPR=DC_DART_EVT(TURNCOUNT + 10);
  3168.         };
  3169.     };
  3170.      // DRINK 3 NON-POISONOUS
  3171.     HOLD BMP=$SBARDIR\BAR\INV\BDTO3.BMP^DRINK3*0{
  3172.         SET TXT = your_drink COLOR 2 AS TITLE; //%%3229
  3173.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3174.             RUN COMMAND = FLUSHQUEUE2;
  3175.             RUN MOVIE=$SBARDIR\BAR\OBJ\BDTO3.SMK AS EXAMINE SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTOEXC2.WAV;
  3176.         };
  3177.         SET BMP=$SBARDIR\GENERAL\MENUS\DRINK.BMP{
  3178.             RUN COMMAND=REMOVE OBJECT DRINK3 FROM INV_WLD
  3179.             RUN COMMAND=REMOVE OBJECT DRINK3 FROM INVZ_WLD
  3180.             RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC2.WAV AS ASYNC;
  3181.             RUN EXPR=TEMP(NUM_DRINKS);
  3182.             IF (TEMP == 3)
  3183.                 RUN EXPR=NUM_DRINKS(0);
  3184.                 RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC4.WAV AS SYNC;
  3185.                 RUN TXT=$SBARDIR\BAR\OBJ\BDTODR4.TXT COLOR 2 AS CAPTION;
  3186.                 RUN COMMAND=DEATH;
  3187.             ENDIF
  3188.             IF (TEMP == 2)
  3189.                 RUN EXPR=NUM_DRINKS(3);
  3190.                 RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODK2A.WAV;
  3191.                         RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZED3.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  3192.             ENDIF
  3193.             IF (TEMP == 1)
  3194.                 RUN EXPR=NUM_DRINKS(2);
  3195.             ENDIF
  3196.             IF (TEMP == 0)
  3197.                 RUN EXPR=NUM_DRINKS(1);
  3198.             ENDIF
  3199.             RUN EXPR = HAVEDRINK( FALSE );
  3200.             RUN COMMAND=UPDATE;
  3201.         };
  3202.             SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  3203.             RUN COMMAND=TRANSFER OBJECT DRINK3 FROM INV_WLD TO BWIELD_WLD;
  3204.             };
  3205.         // DEMO: Removed residue printing support.
  3206.     };
  3207. }
  3208.  
  3209. // ZOOMS INVENTORY 
  3210. SDEV INVZ_WLD AS BMP RECT [24,47,624,347]{
  3211.     SET BKG=$SBARDIR\BAR\INV\INVBACKZ.BMP;
  3212.      IF (INV_WLD CONTAINS HFJAMMER) // HIGH FREQUENCY JAMMMER
  3213.         SET BMP=$SBARDIR\BAR\INV\BZTGZ.BMP^HFJAMMER{
  3214.             SET TXT = high-frequency_jammer COLOR 2 AS TITLE; //%%3873
  3215.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3216.                 RUN COMMAND = FLUSHQUEUE2;
  3217.                 RUN MOVIE=$SBARDIR\BAR\OBJ\BZTG.SMK AS EXAMINE SND=$SBARDIR\BAR\OBJ\BZTGEXC1.WAV;
  3218.             };
  3219.             IF NOT ($CURRENT_SDEV == BZTGRDC1_WLD OR $CURRENT_SDEV == BZTG_WLD)
  3220.                 SET BMP=$SBARDIR\GENERAL\MENUS\READ.BMP{
  3221.                     RUN LNK = BZTGRDC1_WLD;
  3222.                 };
  3223.                 SET BMP=$SBARDIR\GENERAL\MENUS\SET.BMP{
  3224.                     RUN LNK=BZTG_WLD;
  3225.                 };
  3226.             ENDIF
  3227.             SET BMP=$SBARDIR\GENERAL\MENUS\WEAR.BMP{
  3228.                 RUN SND=$SBARDIR\BAR\OBJ\BZTGWEC1.WAV AS QUEUE *2;
  3229.             };
  3230.             IF ( HFJAM_STATE == OFF )
  3231.                 SET BMP=$SBARDIR\GENERAL\MENUS\ON.BMP{
  3232.                     RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
  3233.                     RUN EXPR=HFJAM_STATE(ON);
  3234.                 };
  3235.             ELSE
  3236.                 SET BMP=$SBARDIR\GENERAL\MENUS\OFF.BMP{
  3237.                     RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
  3238.                     RUN EXPR=HFJAM_STATE(OFF);
  3239.                 };
  3240.              ENDIF
  3241.                 SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  3242.                 RUN COMMAND=TRANSFER OBJECT HFJAMMER FROM INV_WLD TO BWIELD_WLD;
  3243.                 };
  3244.         };
  3245.     ENDIF
  3246.      IF (INV_WLD CONTAINS CREDITCHIP)    // CREDIT CHIP
  3247.         SET BMP=$SBARDIR\BAR\INV\BZTAZ.BMP^CREDITCHIP{
  3248.             SET TXT = credit_chip COLOR 2 AS TITLE; //%%3919
  3249.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3250.                 RUN MOVIE=$SBARDIR\BAR\OBJ\BZTA.SMK AS EXAMINE;
  3251.             };
  3252.                // Check credit balance
  3253.             SET BMP=$SBARDIR\GENERAL\MENUS\CHECK.BMP{
  3254.                    IF (NUGGETS > 30000)
  3255.                     RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC1.WAV AS QUEUE *2;
  3256.                 ELSE
  3257.                     IF (NUGGETS > 10000)
  3258.                         RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC2.WAV AS QUEUE *2;
  3259.                     ELSE
  3260.                         IF (NUGGETS > 500)
  3261.                             RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC3.WAV AS QUEUE *2;
  3262.                         ELSE
  3263.                             IF (NUGGETS > 50)
  3264.                                 RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC4.WAV AS QUEUE *2;
  3265.                             ELSE
  3266.                                 IF (NUGGETS > 0)
  3267.                                     RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC5.WAV AS QUEUE *2;
  3268.                                 ELSE
  3269.                                     RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC6.WAV AS QUEUE *2;
  3270.                                 ENDIF
  3271.                             ENDIF
  3272.                         ENDIF
  3273.                     ENDIF
  3274.                 ENDIF
  3275.                    RUN TXT=$SBARDIR\BAR\OBJ\CREDITS.TXT VAR NUGGETS COLOR 2 AS CAPTION;
  3276.                };
  3277.             SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  3278.                 RUN COMMAND=TRANSFER OBJECT CREDITCHIP FROM INV_WLD TO BWIELD_WLD;
  3279.             };
  3280.             // DEMO: Removed residue printer support.
  3281.         };
  3282.     ENDIF
  3283.      IF (INV_WLD CONTAINS DATACART)    // DATACART
  3284.         SET BMP=$SBARDIR\BAR\INV\BZTDZ.BMP^DATACART{
  3285.             SET TXT = datacart COLOR 2 AS TITLE; //%%3965
  3286.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3287.                 RUN COMMAND = FLUSHQUEUE2;
  3288.                 RUN MOVIE=$SBARDIR\BAR\OBJ\BZTD.SMK AS EXAMINE SND=$SBARDIR\BAR\CLOSEUP\BACF\BZTDEXC1.WAV;
  3289.             };
  3290.             SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  3291.                 RUN COMMAND=TRANSFER OBJECT DATACART FROM INV_WLD TO BWIELD_WLD;
  3292.                 RUN EXPR=DC_DART_EVT(TURNCOUNT + 10);
  3293.             };
  3294.         };
  3295.     ENDIF
  3296.      IF (INV_WLD CONTAINS DRINK3)    // DRINK 3 NON-POISONOUS
  3297.         SET BMP=$SBARDIR\BAR\INV\BDTO3Z.BMP^DRINK3*0{
  3298.             SET TXT = your_drink COLOR 2 AS TITLE; //%%4255
  3299.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3300.                 RUN COMMAND = FLUSHQUEUE2;
  3301.                 RUN MOVIE=$SBARDIR\BAR\OBJ\BDTO3.SMK AS EXAMINE SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTOEXC2.WAV;
  3302.             };
  3303.             SET BMP=$SBARDIR\GENERAL\MENUS\DRINK.BMP{
  3304.                 RUN COMMAND=REMOVE OBJECT DRINK3 FROM INV_WLD; 
  3305.                 RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC2.WAV AS WAITQUEUE *2;
  3306.                 RUN EXPR=TEMP(NUM_DRINKS);
  3307.                 IF (TEMP == 3)
  3308.                     RUN EXPR=NUM_DRINKS(0);
  3309.                     RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC4.WAV AS SYNC;        
  3310.                     RUN TXT=$SBARDIR\BAR\OBJ\BDTODR4.TXT COLOR 2 AS CAPTION;
  3311.                     RUN COMMAND=DEATH;
  3312.                 ENDIF
  3313.                 IF (TEMP == 2)
  3314.                     RUN EXPR=NUM_DRINKS(3);
  3315.                     RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODK2A.WAV AS WAITQUEUE *2;        
  3316.                     RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZED3.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  3317.                 ENDIF
  3318.                 IF (TEMP == 1)
  3319.                     RUN EXPR=NUM_DRINKS(2);
  3320.                 ENDIF
  3321.                 IF (TEMP == 0)
  3322.                     RUN EXPR=NUM_DRINKS(1);
  3323.                 ENDIF 
  3324.                 RUN EXPR = HAVEDRINK( FALSE );
  3325.                 RUN COMMAND=UPDATE;
  3326.             };
  3327.                SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  3328.                 RUN COMMAND=TRANSFER OBJECT DRINK3 FROM INV_WLD TO BWIELD_WLD;
  3329.             };
  3330.             // DEMO: Removed residue printing support.
  3331.         };
  3332.     ENDIF
  3333. }
  3334. SDEV MAPZ_WLD AS BMP RECT [24,47,624,347]{
  3335.     SET BKG=$SBARDIR\BAR\MAP\BARMAPZ.BMP;
  3336.     IF (BARLOC == BAP)
  3337.         SET SPR=$SBARDIR\BAR\MAP\YOUZ.BMP[168,238]+2;
  3338.     ENDIF
  3339.     IF (BARLOC == BDP)
  3340.         SET SPR=$SBARDIR\BAR\MAP\YOUZ.BMP[145,136]+2;
  3341.     ENDIF
  3342.     IF (BARLOC == BGP)
  3343.         SET SPR=$SBARDIR\BAR\MAP\YOUZ.BMP[173,110]+2;
  3344.     ENDIF
  3345. }
  3346. SDEV MOOZ_WLD AS MOOWLD RECT [24,47,624,347]{
  3347.     SET BKG=$SBARDIR\BAR\INV\INVBACKZ.BMP;
  3348. }
  3349. SDEV BWIELD_WLD AS WIELD{
  3350.     BKG=$SBARDIR\BAR\WIELD\HUMYOU2.BMP;
  3351.     SET ARE = [0,0,100,100] {
  3352.         SET TXT =Alias_Node COLOR 2 SIZE 16 AS TITLE; //%%135
  3353.         SET BMP=$SBARDIR\GENERAL\MENUS\WAIT.BMP {
  3354.             RUN SND = $SBARDIR\GENERAL\WAIT.WAV; 
  3355.             RUN COMMAND = EVENTLOOP;
  3356.             RUN COMMAND = UPDATE;
  3357.         };
  3358.     };
  3359.         // CREDIT CHIP
  3360.     HOLD BMP=$SBARDIR\BAR\WIELD\BZTA.BMP^CREDITCHIP #44{
  3361.         SET TXT = credit_chip COLOR 2 AS TITLE; //%%2215
  3362.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3363.             RUN MOVIE=$SBARDIR\BAR\OBJ\BZTA.SMK AS EXAMINE;
  3364.         };
  3365.         // Check credit balance
  3366.         SET BMP=$SBARDIR\GENERAL\MENUS\CHECK.BMP{
  3367.             IF (NUGGETS > 30000)
  3368.                 RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC1.WAV AS QUEUE *2;
  3369.             ELSE
  3370.                 IF (NUGGETS > 10000)
  3371.                     RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC2.WAV AS QUEUE *2;
  3372.                 ELSE
  3373.                     IF (NUGGETS > 500)
  3374.                         RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC3.WAV AS QUEUE *2;
  3375.                     ELSE
  3376.                         IF (NUGGETS > 50)
  3377.                             RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC4.WAV AS QUEUE *2;
  3378.                         ELSE
  3379.                             IF (NUGGETS > 0)
  3380.                                 RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC5.WAV AS QUEUE *2;
  3381.                             ELSE
  3382.                                 RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC6.WAV AS QUEUE *2;
  3383.                             ENDIF
  3384.                         ENDIF
  3385.                     ENDIF
  3386.                 ENDIF
  3387.             ENDIF
  3388.             RUN TXT=$SBARDIR\BAR\OBJ\CREDITS.TXT VAR NUGGETS COLOR 2 AS CAPTION;
  3389.         };
  3390.         SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
  3391.             RUN COMMAND=TRANSFER OBJECT CREDITCHIP FROM BWIELD_WLD TO INV_WLD;
  3392.         };
  3393.     };
  3394.     // DATACART
  3395.     HOLD BMP=$SBARDIR\BAR\WIELD\BZTD.BMP^DATACART #47{
  3396.         SET TXT = datacart COLOR 2 AS TITLE; //%%2251
  3397.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3398.             RUN COMMAND = FLUSHQUEUE2;
  3399.             RUN MOVIE=$SBARDIR\BAR\OBJ\BZTD.SMK AS EXAMINE SND=$SBARDIR\BAR\CLOSEUP\BACF\BZTDEXC1.WAV;
  3400.         };
  3401.           SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
  3402.             RUN COMMAND=TRANSFER OBJECT DATACART FROM BWIELD_WLD TO INV_WLD;
  3403.             RUN EXPR=DC_DART_EVT(6666);
  3404.         };
  3405.     };
  3406.     // HIGH FREQUENCY JAMMMER
  3407.     HOLD BMP=$SBARDIR\BAR\WIELD\BZTG.BMP^HFJAMMER #50{
  3408.         SET TXT = high-frequency_jammer COLOR 2 AS TITLE; //%%2353
  3409.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3410.             RUN COMMAND = FLUSHQUEUE2;
  3411.             RUN MOVIE = $SBARDIR\BAR\OBJ\BZTG.SMK AS EXAMINE SND=$SBARDIR\BAR\OBJ\BZTGEXC1.WAV;
  3412.         };
  3413.         IF NOT ($CURRENT_SDEV == BZTGRDC1_WLD OR $CURRENT_SDEV == BZTG_WLD)
  3414.             SET BMP=$SBARDIR\GENERAL\MENUS\READ.BMP{
  3415.                 RUN LNK = BZTGRDC1_WLD;
  3416.             };
  3417.             SET BMP=$SBARDIR\GENERAL\MENUS\SET.BMP{
  3418.                 RUN LNK=BZTG_WLD;
  3419.             };
  3420.         ENDIF
  3421.         SET BMP=$SBARDIR\GENERAL\MENUS\WEAR.BMP{
  3422.             RUN SND=$SBARDIR\BAR\OBJ\BZTGWEC1.WAV AS QUEUE *2;
  3423.         };
  3424.         IF ( HFJAM_STATE == OFF )
  3425.             SET BMP=$SBARDIR\GENERAL\MENUS\ON.BMP{
  3426.                 RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
  3427.                 RUN EXPR=HFJAM_STATE(ON);
  3428.             };
  3429.         ELSE
  3430.             SET BMP=$SBARDIR\GENERAL\MENUS\OFF.BMP{
  3431.                 RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
  3432.                 RUN EXPR=HFJAM_STATE(OFF);
  3433.             };
  3434.          ENDIF
  3435.             SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
  3436.             RUN COMMAND=TRANSFER OBJECT HFJAMMER FROM BWIELD_WLD TO INV_WLD;       
  3437.             };
  3438.     };
  3439.      // DRINK 3 NON-POISONOUS
  3440.     HOLD BMP=$SBARDIR\BAR\WIELD\BDTO3.BMP^DRINK3 #30{
  3441.         SET TXT = your_drink COLOR 2 AS TITLE; //%%2456
  3442.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  3443.             RUN COMMAND = FLUSHQUEUE2;
  3444.             RUN MOVIE=$SBARDIR\BAR\OBJ\BDTO3.SMK AS EXAMINE SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTOEXC2.WAV;
  3445.         };
  3446.         SET BMP=$SBARDIR\GENERAL\MENUS\DRINK.BMP{
  3447.             RUN COMMAND=REMOVE OBJECT DRINK3 FROM BWIELD_WLD;
  3448.             RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC2.WAV AS WAITQUEUE *2;
  3449.             RUN EXPR=TEMP(NUM_DRINKS);
  3450.             IF (TEMP == 3)
  3451.                 RUN EXPR=NUM_DRINKS(0);
  3452.                         RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZED3.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  3453.                 RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC4.WAV AS SYNC;
  3454.                 RUN TXT=$SBARDIR\BAR\OBJ\BDTODR4.TXT COLOR 2 AS CAPTION;
  3455.                 RUN COMMAND=DEATH;
  3456.             ENDIF
  3457.             IF (TEMP == 2)
  3458.                 RUN EXPR=NUM_DRINKS(3);
  3459.                 RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODK2A.WAV AS WAITQUEUE *2;
  3460.                         RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZED3.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  3461.             ENDIF
  3462.             IF (TEMP == 1)
  3463.                 RUN EXPR=NUM_DRINKS(2);
  3464.             ENDIF
  3465.             IF (TEMP == 0)
  3466.                 RUN EXPR=NUM_DRINKS(1);
  3467.             ENDIF
  3468.             RUN EXPR = HAVEDRINK( FALSE );
  3469.             RUN COMMAND=UPDATE;
  3470.         };
  3471.             SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
  3472.             RUN COMMAND=TRANSFER OBJECT DRINK3 FROM BWIELD_WLD TO INV_WLD;
  3473.             // DEMO: Removed residue printer support.
  3474.         };
  3475.     };
  3476. }
  3477.  
  3478. SDEV MOO_WLD AS MOOWLD RECT [116, 61, 350, 172]{
  3479.     SET BKG=$SBARDIR\BAR\INV\INVBACK.BMP;
  3480. }
  3481.  
  3482. SDEV EVT_WLD AS EVENT{
  3483.     IF (BARCROWD~~PLAYING == 0)
  3484.             RUN EXPR=BARCROWD~~VOLUME(0);
  3485.         RUN SND=$SBARDIR\BAR\EVENTS\BARBREAK.WAV^BARCROWD LOOP 1999999 AS MIX IS TIMELESS SOUNDOVEROK; 
  3486.     ENDIF
  3487.     IF (BARMUSIC~~PLAYING == 0 AND BARMUSIC2~~PLAYING == 0 AND BARMUSIC3~~PLAYING == 0 AND BARMUSIC4~~PLAYING == 0 AND BARMUSIC5~~PLAYING == 0 AND BARMUSIC6~~PLAYING == 0 AND BARMUSIC7~~PLAYING == 0 AND BARMUSIC8~~PLAYING == 0)
  3488.          RUN EXPR = CUR_BAR_MUSIC(RANDOM % 7);
  3489.         IF (CUR_BAR_MUSIC == 0)
  3490.             RUN SND=$SBARDIR\BAR\EVENTS\BARBAND1.MID^BARMUSIC LOOP 2 AS MIDI IS TIMELESS;
  3491.         ENDIF
  3492.         IF (CUR_BAR_MUSIC == 1)
  3493.             RUN SND=$SBARDIR\BAR\EVENTS\BARBAND2.MID^BARMUSIC2 LOOP 2 AS MIDI IS TIMELESS;
  3494.         ENDIF
  3495.         IF (CUR_BAR_MUSIC == 2)
  3496.             RUN SND=$SBARDIR\BAR\EVENTS\BARBAND3.MID^BARMUSIC3 LOOP 2 AS MIDI IS TIMELESS;
  3497.         ENDIF
  3498.         IF (CUR_BAR_MUSIC == 3)
  3499.             RUN SND=$SBARDIR\BAR\EVENTS\BARBAND4.MID^BARMUSIC4 LOOP 2 AS MIDI IS TIMELESS;
  3500.         ENDIF
  3501.            IF (CUR_BAR_MUSIC == 4)
  3502.                RUN SND=$SBARDIR\BAR\EVENTS\BARBAND5.MID^BARMUSIC5 LOOP 2 AS MIDI IS TIMELESS;
  3503.         ENDIF
  3504.            IF (CUR_BAR_MUSIC == 5)
  3505.                 RUN SND=$SBARDIR\BAR\EVENTS\BARBAND6.MID^BARMUSIC6 LOOP 2 AS MIDI IS TIMELESS;
  3506.         ENDIF
  3507.            IF (CUR_BAR_MUSIC == 6)
  3508.                 RUN SND=$SBARDIR\BAR\EVENTS\BARBAND7.MID^BARMUSIC7 LOOP 2 AS MIDI IS TIMELESS;
  3509.         ENDIF
  3510.     ENDIF
  3511.     // Coming back from a flashback
  3512.     IF (SAVTURNCOUNT < 6666)
  3513.         RUN EXPR=TURNCOUNT( SAVTURNCOUNT );
  3514.         RUN EXPR=SAVTURNCOUNT( 6666 );
  3515.     ENDIF
  3516.     // DEMO: Removed brief1_evt
  3517.     // DEMO: Removed brief2_evt
  3518.     // DEMO: Removed brief3_evt
  3519.     // DEMO: Removed nidop1_evt
  3520.     // DEMO: Removed Zelda's comments about maksh
  3521.     // DEMO: Removed nidop2_evt
  3522.     // DEMO: Removed nidop3_evt
  3523.     // DEMO: Removed nidop4_evt
  3524.     // DEMO: Removed nidop5_evt
  3525.     // DEMO: Removed nidop6_evt
  3526.     // DEMO: Removed nidop7_evt
  3527.     // DEMO: Removed nidop8_evt
  3528.     // DEMO: Removed nidop9_evt
  3529.     IF (NDJAM_INNERDIAL == HFJAM_INNERDIAL AND NDJAM_OUTERDIAL == HFJAM_OUTERDIAL )
  3530.         IF (HFJAM_DONE == 0)
  3531.             RUN EXPR = JAMMED(TURNCOUNT + 8)
  3532.             RUN EXPR = HFJAM_DONE (1);
  3533.         ENDIF
  3534.     ELSE
  3535.         RUN EXPR = HFJAM_DONE (0);
  3536.         RUN EXPR = JAMMED (3000);
  3537.     ENDIF
  3538.     IF (TURNCOUNT > MAKSH1_EVT )
  3539.         // RUN EVENT
  3540.         RUN COMMAND=INSERT OBJECT MAKSH1 TO LOG_WLD;
  3541.         RUN COMMAND=INSERT OBJECT MAKSH1Z TO LOGZ_WLD;
  3542.         RUN EXPR=MAKSH1~~TIME(TURNCOUNT);
  3543.         RUN EXPR=MAKSH1Z~~TIME(TURNCOUNT);
  3544.         IF (ZELDA_REM == 6666)
  3545.             RUN EXPR=ZELDA_REM(TURNCOUNT + 20);
  3546.         ENDIF
  3547.         // KILL THIS EVENT
  3548.         RUN EXPR=MAKSH1_EVT(6666);
  3549.     ENDIF
  3550.     // DEMO: Removed maksh2_evt
  3551.     // DEMO: Removed maksh3_evt
  3552.     // DEMO: Removed maksh4_evt
  3553.     // DEMO: Removed maksh5_evt
  3554.     // DEMO: Removed maksh6_evt
  3555.     // BULBUS FLIGHT DELAYED TO 22:90
  3556.     IF ( FLIGHT_MSG==1 AND TURNCOUNT > 1855 )
  3557.         IF (BARLOC != BJP AND BARLOC != BKP)
  3558.             IF (BARLOC != BRP)
  3559.                 RUN SND=$SBARDIR\BAR\EVENTS\EVFLA1.WAV AS QUEUE *1 SOUNDOVEROK VOLUME 7;
  3560.                 RUN EXPR=FLIGHT_MSG(2);
  3561.             ENDIF
  3562.         ENDIF
  3563.     ENDIF
  3564.     // DEMO: Removed message about flight for bulbus 3 being canceled.
  3565.     // DEMO: Pruned down flight messages to two.
  3566.     // DEMO: Removed reminder to residue print
  3567.     // DEMO: Removed event to insert arksh
  3568.     // DEMO: Removed setting of sararrive_evt to 6666
  3569.     // DEMO: Removed cilia giving you viddisc
  3570.     // DEMO: Removed paksha
  3571.     // DEMO: Removed drink delivery
  3572.     // DEMO: Removed nidopal from entry vestibule computer
  3573.     // DEMO: Removed borksh
  3574.     // DEMO: Removed dart
  3575.     // DEMO: Removed gus
  3576.     // DEMO: Removed arksh's death
  3577.     IF ( TURNCOUNT > ZELDA_REM )
  3578.         IF (FIRST_ZELDA == FALSE) 
  3579.                 RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZEMSG1.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  3580.             ELSE
  3581.                    RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZEMSG.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  3582.                    RUN EXPR=FIRST_ZELDA(TRUE);
  3583.                ENDIF
  3584.         RUN EXPR=ZELDA_REM(6666);            
  3585.     ENDIF
  3586.     // DEMO: Removed support to changed the mytosi state
  3587.     // DEMO: Removed forced end of game at turn 2250
  3588.     // DEMO: Removed residue printer support
  3589. }
  3590.  
  3591. SDEV LOG_WLD AS LOG RECT [116, 61, 350, 172] {
  3592.     HOLD MOVIE=$SBARDIR\BAR\LOG\OVERRIDE.SMK[97,292]^OVERRIDE_MOVIE AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  3593.  
  3594.     HOLD TXT=Credit_Chip__________________[0, 0, 200, 12]^CCNAME FONT 0 COLOR 7 SIZE 10 AS TITLE; 
  3595.     HOLD TXT=Data_Cartridge_______________[0, 0, 200, 12]^DCNAME FONT 0 COLOR 7 SIZE 10 AS TITLE; 
  3596.     HOLD TXT=High_Frequency_Jammer________[0, 0, 200, 12]^HFNAME FONT 0 COLOR 7 SIZE 10 AS TITLE; 
  3597.     SET BKG=$SBARDIR\BAR\INV\INVBACK.BMP;
  3598.     IF (LOG_STATE == MAINMENU)
  3599.         SET TXT=_______REVIEW__MESSAGES_______[40,48] COLOR 7 FONT 0 SIZE 10 AS TITLE{ //%%958
  3600.             RUN EXPR=CUR_BAR_LOG_PAGE(1);
  3601.             RUN EXPR=LOG_STATE(MSG);
  3602.         };
  3603.     ENDIF
  3604.  
  3605.     IF (LOG_STATE == MSG)
  3606.         SET TXT=$SBARDIR\BAR\LOG\MSGTOP.TXT[60, 0, 200, 20] COLOR 7 SIZE 8 FONT 0 AS TITLE ; //%%1210
  3607.         SET TXT=MESSAGE_FROM_________________TIME[6, 26] COLOR 7 SIZE 8 FONT 0 IS HIGHLIGHT AS TITLE; //%%1211
  3608.         IF (BARLINK~~STATE == 1)
  3609.              SET MSG=REMEMBER^REMEMBER SENDEE Sgt.Woboksha TIME REMEMBER~~TIME{
  3610.                 RUN MOVIE=$SBARDIR\BAR\EVENTS\EVENBAR.SMK[97,292] AS PDAMSG;
  3611.             };
  3612.         ENDIF
  3613.             IF (MAKSH1~~PLAYED == 1) 
  3614.             SET MSG=MAKSH1^MAKSH1 SENDEE Maksh TIME MAKSH1~~TIME{
  3615.                 RUN MOVIE=$SBARDIR\BAR\EVENTS\EVMAKN1.SMK[97,292] AS PDAMSG;
  3616.                 // DEMO: Removed the movie were maksh recues alias from the gordo.
  3617.             };
  3618.             ENDIF
  3619.         SET TXT=MAIN_MENU[80,100] COLOR 7 SIZE 10 IS HIGHLIGHT AS TITLE{ //%%1339
  3620.             RUN COMMAND = REMOVE OBJECT LOGPAGUP FROM LOG_WLD;
  3621.             RUN COMMAND = REMOVE OBJECT LOGPAGDOWN FROM LOG_WLD;
  3622.             RUN EXPR=LOG_STATE(MAINMENU);
  3623.         };
  3624.     ENDIF
  3625.     HOLD TXT=UP[40,100]^LOGPAGUP COLOR 7 SIZE 10 IS HIGHLIGHT AS TITLE{
  3626.         RUN EXPR=TEMP(CUR_BAR_LOG_PAGE);
  3627.         IF ( TEMP > 0 )
  3628.             RUN EXPR=CUR_BAR_LOG_PAGE( CUR_BAR_LOG_PAGE - 1 );
  3629.         ENDIF
  3630.     };
  3631.     HOLD TXT=DOWN[140,100]^LOGPAGDOWN COLOR 7 SIZE 10 IS HIGHLIGHT AS TITLE{
  3632.         RUN EXPR=CUR_BAR_LOG_PAGE( CUR_BAR_LOG_PAGE + 1 );
  3633.     };       
  3634. }
  3635.  
  3636. SDEV LOGZ_WLD AS LOG RECT [24,47,624,347]{
  3637.     HOLD MOVIE=$SBARDIR\BAR\LOG\OVERRIDE.SMK[97,292]^OVERRIDE_MOVIE AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  3638.  
  3639.     HOLD TXT=Credit_Chip__________________[100, 0, 600, 24]^CCNAMEZ FONT 0 COLOR 7 SIZE 20 AS TITLE; 
  3640.     HOLD TXT=Data_Cartridge_______________[100, 0, 600, 24]^DCNAMEZ FONT 0 COLOR 7 SIZE 20 AS TITLE; 
  3641.     HOLD TXT=High_Frequency_Jammer________[100, 0, 600, 24]^HFNAMEZ FONT 0 COLOR 7 SIZE 20 AS TITLE; 
  3642.     SET BKG=$SBARDIR\BAR\INV\INVBACKZ.BMP;
  3643.     IF (LOG_STATE == MAINMENU)
  3644.         SET TXT=_______REVIEW__MESSAGES_______[140,150] COLOR 7 FONT 0 SIZE 20 AS TITLE{ //%%1590
  3645.             RUN EXPR=CUR_BAR_LOG_PAGE(1);
  3646.             RUN EXPR=LOG_STATE(MSG);
  3647.         };
  3648.     ENDIF
  3649.     IF (LOG_STATE == MSG)
  3650.            SET TXT=$SBARDIR\BAR\LOG\MSGTOP.TXT[200, 0, 600, 20] COLOR 7 SIZE 20 FONT 0 AS TITLE ; //%%1840
  3651.            SET TXT=MESSAGE_FROM_________________TIME[6, 60] COLOR 7 SIZE 18 FONT 0 IS HIGHLIGHT AS TITLE; //%%1841
  3652.            IF (BARLINK~~STATE == 1) 
  3653.             SET MSG=REMEMBER^REMEMBERZ SENDEE Sgt.Woboksha TIME REMEMBERZ~~TIME{
  3654.                 RUN MOVIE=$SBARDIR\BAR\EVENTS\EVENBAR.SMK[150,130] AS PDAMSG;
  3655.             };
  3656.         ENDIF
  3657.            IF (MAKSH1~~PLAYED == 1)
  3658.             SET MSG=MAKSH1^MAKSH1Z SENDEE Maksh TIME MAKSH1Z~~TIME{
  3659.                 RUN MOVIE=$SBARDIR\BAR\EVENTS\EVMAKN1.SMK[150,130] AS PDAMSG;
  3660.             };
  3661.         ENDIF
  3662.         SET TXT=MAIN_MENU[255,275] COLOR 7 SIZE 20 AS TITLE IS HIGHLIGHT{ //%%1929
  3663.             RUN EXPR=LOG_STATE(MAINMENU);
  3664.         };
  3665.     ENDIF
  3666. }
  3667.  
  3668. // HIGH FREQUENCY JAMMER CLOSEUP
  3669. SDEV BZTG_WLD AS CLOSEUP{
  3670.     SET BKG=$SBARDIR\BAR\CLOSEUP\BZCG\BZCG.BMP;
  3671.     SET TNG=$SBARDIR\BAR\CLOSEUP\BZCG\BZNH.SMK^OUTERDIAL KEEPSTATE LOOP 0[74,88,197,283];
  3672.     SET TNG=$SBARDIR\BAR\CLOSEUP\BZCG\BZNI.SMK^INNERDIAL KEEPSTATE LOOP 0[194,45,341,300];
  3673.     SET ARE=INCREMENT_INNER[194,45,341,185]%1{
  3674.         RUN EXPR=TEMP( HFJAM_INNERDIAL + 1 );
  3675.         IF (TEMP <= 26)
  3676.             RUN EXPR=INNERDIAL~~CURR_FRAME( TEMP );
  3677.             RUN SND=$SBARDIR\BAR\OBJ\BZTGIIC1.WAV;
  3678.             RUN EXPR=HFJAM_INNERDIAL(TEMP);
  3679.                 RUN COMMAND=UPDATE;
  3680.             ENDIF
  3681.         };
  3682.     SET ARE=DECREMENT_INNER[194,185,341,300]%1{
  3683.         RUN EXPR=TEMP( HFJAM_INNERDIAL - 1 );
  3684.         IF (TEMP > 0)
  3685.             RUN EXPR=INNERDIAL~~CURR_FRAME( TEMP );
  3686.             RUN SND=$SBARDIR\BAR\OBJ\BZTGIIC1.WAV;
  3687.             RUN EXPR=HFJAM_INNERDIAL(TEMP);
  3688.                 RUN COMMAND=UPDATE;
  3689.             ENDIF
  3690.         };
  3691.     SET ARE=INCREMENT_OUTER[74,88,197,183]%1{
  3692.         RUN EXPR=TEMP( HFJAM_OUTERDIAL + 1 );
  3693.         IF (TEMP <= 10)
  3694.             RUN EXPR=OUTERDIAL~~CURR_FRAME( TEMP );
  3695.             RUN SND=$SBARDIR\BAR\OBJ\BZTGIIC1.WAV;
  3696.             RUN EXPR=HFJAM_OUTERDIAL(TEMP);
  3697.                 RUN COMMAND=UPDATE;
  3698.             ENDIF
  3699.         };
  3700.     SET ARE=DECREMENT_OUTER[74,183,197,283]%1{
  3701.         RUN EXPR=TEMP( HFJAM_OUTERDIAL - 1 );
  3702.         IF (TEMP > 0)
  3703.             RUN EXPR=OUTERDIAL~~CURR_FRAME( TEMP );
  3704.             RUN SND=$SBARDIR\BAR\OBJ\BZTGIIC1.WAV;
  3705.             RUN EXPR=HFJAM_OUTERDIAL(TEMP);
  3706.                 RUN COMMAND=UPDATE;
  3707.             ENDIF
  3708.         };
  3709. }
  3710. // READ HIGH FREQUENCY JAMMER CLOSEUP
  3711. SDEV BZTGRDC1_WLD AS CLOSEUP{
  3712.     SET BKG=$SBARDIR\BAR\CLOSEUP\BZCG\BZCG2.BMP;
  3713.     RUN EXPR = BARLOC (HFJAMMER);
  3714. }
  3715.  
  3716.  
  3717. SDEV TURN_WLD AS TURNEVENT {
  3718.     IF (TURNCOUNT == ENDTURN)
  3719.         RUN EXPR = TURNCOUNT( STARTTURN );
  3720.     ENDIF
  3721.     // DEMO: Removed brief1_evt
  3722.     // DEMO: Removed brief2_evt
  3723.     // DEMO: Removed brief3_evt
  3724.     // DEMO: Removed nidop1_evt
  3725.     // DEMO: Removed zenid1_evt
  3726.     // DEMO: Removed nidop2_evt
  3727.     // DEMO: Removed nidop3_evt
  3728.     // DEMO: Removed nidop4_evt
  3729.     // DEMO: Removed nidop5_evt
  3730.     // DEMO: Removed nidop6_evt
  3731.     // DEMO: Removed nidop7_evt
  3732.     // DEMO: Removed nidop8_evt
  3733.     // DEMO: Removed nidop9_evt
  3734.     IF (TURNCOUNT > MAKSH1_EVT )
  3735.         // RUN EVENT
  3736.         RUN COMMAND=INSERT OBJECT MAKSH1 TO LOG_WLD;
  3737.         RUN COMMAND=INSERT OBJECT MAKSH1Z TO LOGZ_WLD;
  3738.         RUN EXPR=MAKSH1~~TIME(TURNCOUNT);
  3739.         RUN EXPR=MAKSH1Z~~TIME(TURNCOUNT);
  3740.         IF (ZELDA_REM == 6666)
  3741.             RUN EXPR=ZELDA_REM(TURNCOUNT + 20);
  3742.         ENDIF
  3743.         // KILL THIS EVENT
  3744.         RUN EXPR=MAKSH1_EVT(6666);
  3745.     ENDIF
  3746.     // DEMO: Removed maksh2_evt
  3747.     // DEMO: Removed maksh3_evt
  3748.     // DEMO: Removed maksh4_evt
  3749.     // DEMO: Removed maksh5_evt
  3750.     // DEMO: Removed maksh6_evt
  3751.     // BULBUS FLIGHT DELAYED TO 22:90
  3752.     IF ( FLIGHT_MSG==1 AND TURNCOUNT > 1855 )
  3753.         IF (BARLOC != BJP AND BARLOC != BKP)
  3754.             IF (BARLOC != BRP AND $CURRENT_SDEV != BMCA_WLD)
  3755.                 RUN SND=$SBARDIR\BAR\EVENTS\EVFLA1.WAV AS QUEUE *1 SOUNDOVEROK VOLUME 7;
  3756.                 RUN EXPR=FLIGHT_MSG(2);
  3757.             ENDIF
  3758.         ENDIF
  3759.     ENDIF
  3760.     // DEMO: Removed flight_msg 2 (bulbus 3 departure canceled)
  3761.     // DEMO: Removed flight_msg 3 (hypoctl flight has arrived at gate)
  3762.     // DEMO: Removed flight_msg 4 (arrival from dingle has lost contact)
  3763.     // DEMO: Removed flight_msg 5 (bulbus 3 departure canceled - repeat)
  3764.     // DEMO: Removed flight_msg 6 (bulbus 3 departure canceled - repeat)
  3765.     // DEMO: Removed flight_msg 7 (pina-4 departure - mollassoid joke)
  3766.     // DEMO: Removed flight_msg 8 (karkas-4 departure on time at 22:50)
  3767.     // DEMO: Removed arktobap_evt
  3768.     // DEMO: Removed arktobgp_evt
  3769.     // DEMO: Removed sararrive_evt
  3770.     // DEMO: Removed durtobfp_evt
  3771.     // DEMO: Removed cilvid_evt
  3772.     // DEMO: Removed move_paksha_evt
  3773.     // DEMO: Removed dlve_drnk_evt
  3774.     // DEMO: Removed entry vestibule computer nidopal access
  3775.     // DEMO: Removed borksh_ret_evt
  3776.     // DEMO: Removed dc_dart_evt
  3777.     // DEMO: Removed change_gus_evt
  3778.     // DEMO: Removed arkdeath_evt
  3779.     IF ( TURNCOUNT > ZELDA_REM )
  3780.         IF (FIRST_ZELDA == TRUE) 
  3781.                    RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZEMSG.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  3782.             ELSE
  3783.                 RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZEMSG1.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
  3784.                    RUN EXPR=FIRST_ZELDA(TRUE);
  3785.                ENDIF
  3786.         RUN EXPR=ZELDA_REM(6666);            
  3787.     ENDIF                
  3788.     // DEMO: Removed mytosi_change_evt
  3789.     // DEMO: Removed end of game event
  3790.     // DEMO: Removed reminder to use the voice and residue printer
  3791.     // DEMO: Removed infrared jammer    
  3792.     // DEMO: Removed zelda_lost_signal event
  3793. }
  3794.